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~REM @ 


Seaman: 
PRODUCT CODE: AC-F942A-MC 
PRODUCT NAME: CZRMTAQ RMO5/3/2 DRV CMPT TST 
DATE CREATED: APRIL 1980 
MAINTAINER: CX DIAGNOSTIC ENGINEERING 
AUTHOR : MIKE LEAVITT 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
ade OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 


COPYRIGHT (C) 1980 DIGITAL EQUIPMENT CORPORATION 
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1.0 ABSTRACT 


THE PURPOSE OF THIS PROGRAM IS TO VERIFY THE COMPATIBILITY OF UP TO 16 
RMO5/3/2 DRIVES WHICH MAY RESIDE ON 1 OR MORE RH/RM SUBSYSTEMS. 
COMPATIBILITY IS DEFINED HERE AS THE ABILITY OF A DRIVE TO WRITE DATA 
WHICH CAN | READ SUCCESSFULLY BY ALL OTHER DRIVES, AND ADDIFIONALLY THE 
~yh> by OF A DRIVE TO COMPLETELY OVER-wWRITE DATA WRITTEN BY, ALL OTHER 


THE PROGRAM IS DESIGNED TO DETECT THE FOLLOWING CONDITIONS WHICH MOST 
COMMONLY CAUSE INCOMPATIBILITY BETWEEN DRIVES: 


1. HEAD MISALIGNMENT 

2. POSITIONER LATERAL MISALIGNMENT 

3. SPINDLE-CARTRIDGE INTERFACE RUNOUT 

4. IMPROPER LEVELS OF WRITE CURRENT 

5. INCORRECT ADDRESSING OF READ/WRITE HEADS 


THE TESTING IS DONE IN TWO PASSES. IN PASS 1, COMPATIBILITY DATA 
PATTERNS ARE WRITTEN BY ALL THE DRIVES UPON THE SAME DISK CARTRIDGE, 
AND THE BASIC READ/WRITE CAPABILITY OF EACH DRIVE IS DEMONSTRATED. IN 
PASS 2, THE COMPATIBILITY DATA FROM ALL DRIVES IS READ BY EACH DRIVE, 
WITH HEAD OFFSET, AND THIS IS COMPARED WITH EACH RIVE" S 

ABILITY TO READ ITS OWN DATA. IN ADDITION, EACH DRIVE'S CAPABILITY TO 
OVERWRITE DATA WRITTEN BY ALL OTHER DRIVES IS TESTED ON THE SECOND 
PASS. (FOR THE REMAINDER OF THIS SPECIFICATION, THE ABOVE DEFINITIONS 
OF THE FIRST AND SECOND PASS SHALL APPLY). 


IN BOTH PASSES, THE PROGRAM DIRECTS THE OPERATOR IN THE LOADING AND 
UNLOADING OF DRIVES AND THE MOVEMENT OF THE CARTRIDGE FROM DRIVE TO 
DRIVE, THROUGH Aye AT THE CONSOLE TERMINAL. AT THE COMPLETION OF 
TESTING ON EACH DRIVE DURING THE SECOND PASS A SUMMARY IS PRINTED OF 
COMPATIBILITY TEST RESULTS FOR THAT DRIVE. 


WITHIN THE VARIOUS TESTS OF BOTH PASSES, THE CAPABILITY IS PROVIDED TO 
LOOP ON CURRENT OPERATIONS, AND SWITCH REGISTER OPTIONS ARE PROVIDED, 
< 7m mae OF LOOPING, RUNNING, AND REPORTING MODES (SEE 


UNEXPECTED ERRORS WILL BE REPORTED AS THEY OCCUR. THE REPORT WILL 
INCLUDE DESCRIPTION AND APPLICABLE DEVICE REGISTER CONTENTS. 


2.0 HARDWARE REQUIREMENTS 
jae FOLLOWING HARDWARE IS REQUIRED TO RUN THE RMO5/3/2 DRIVE COMPATIBILITY 


PDP=11/04, (05,10 MFG. ONLY), 20,30,34,35,40,45.50,70 
16K MEMORY 


SEQ 0004 
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SEQ 0005 
58 KW11=L OR KW11-P CLOCK 
59 PROGRAM LOADING DEVICE 
3 60 TERMINAL 
| 61 RH11 OR RH70 CONTROLLER 
} 62 1 TO 8 DISK DRIVES PER CONTROLLER (ANY COMBINATION OF RMO5S'S, RMO3'S OR RMO2'S) 
64 ANY COMBINATION OF DRIVE TYPES MAY BE MIXED TOGEHTER ON A CONTROLLER. BUT, DO 
| 65 TO THE PHYSICAL SIZE OF THE DISK PACKS, THE RMO3/2'S AND THE RMOS'S CANNOT BE 
| 66 SELECTED FOR COMPATIBILITY TOGETHER. IF FOR SOME REASON AN RMO3/2 AND AN RMO5 
67 ARE SELECTED FOR COMPATIBILITY TOGETHER, THE PROGRAM WILL RECOGNIZE THIS UPON 
| 68 THE DIFFERENT DRIVE TYPE AND TYPE THE FOLLOWING MESSAGE: 
| 70 ?CANNOT SELECT RMO3/2'S AND RMOS'S TOGETHER (NOT COMPATIBLE) 
72 
73 IN ADDITION, A SINGLE RMO3/2 OR RMOS DISK CARTRIDGE IS REQUIRED WHICH MUST BE 
7% FORMATTED IN 32 SECTOR FORMAT, ON A RELIABLE WELL~ALIGNED(REFERENCE PACK) 
| 75 RMO3/2 OR RMOS DRIVE. THIS CARTRIDGE WILL BE MOVED FROM DRIVE TO DRIVE, (ON UP 
76 TO 16 DRIVES) ON EACH OF THE TWO PASSES. 
78 
80 3.0 PRELIMINARY PROGRAM REQUIREMENTS 
82 BEFORE RUNNING THE RMOS/3/2 DRIVE COMPATIBILITY PROGRAM, THE SUBSYSTEM(S) 
83 UNDER TEST SHOULD BE CAPABLE OF PASSING THE CONTROLLER DIAGNOSTICS AND THE 
84 DRIVE DIAGNOSTICS. IN ADDITION, THE CARTRIDGE MUST BE FORMATTED IN 32 SECTOR 
85 FORMAT USING THE PACK FORMATTER. 
87 
89 4.0 GENERAL PROGRAM CONSIDERATIONS 
91 4.1 SYSMAC 
93 THIS PROGRAM USES PORTIONS OF THE SYSMAC DIAGNOSTIC SYSTEM MACRO 
a PACKAGE. ; 
95 
96 
97 
98 4.2  XXDP 
100 THIS PROGRAM MAY BE LOADED UNDER XXDP, AND MAY BE RUN IN DUMP MODE 
101 ONLY. DUE TO MANUAL INTERVENTION AND LACK OF END-OF-PASS HOOKS, THE 
102 PROGRAM IS NOT XXDP CHAINABLE. 
104 
105 4.3 ACT 
107 THIS PROGRAM MAY BE LOADED UNDER ACT AND MAY BE RUN IN DUMP MODE ONLY. 
108 IT IS NOT CHAINABLE UNDER ACT. 
110 
111 
| 112 4.4 APT 
| 114 THIS PROGRAM MAY BE LOADED BY THE APT SYSTEM, BUT MAY BE RUN IN 
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PROGRAM (DUMP) MODE ONLY. IT CANNOT BE RUN IN APT SCRIPT MODE. 


4.5 DUAL-ACCESS 


THIS PROGRAM DOES NOT UTILIZE THE DUAL=ACCESS OPTION IN ANY WAY, AND 
ALL DRIVES UNDER TEST SHOULD BE DE-SELECTED THROUGH THE PORT WHICH IS 
NOT IN USE , OR LOCKED ON THE PORT BEING TESTED. 


4.6 MEMORY MANAGEMENT 


MEMORY MANAGEMENT IS NOT UTILIZED IN THIS PROGRAM. IF IT IS 
INSTALLED, IT IS DISABLED BY THE PROGRAM. 


4.7 MEMORY PARITY OPTION 
ioocaah. MEMORY IS INSTALLED, MEMORY PARITY TRAPS ARE DISABLED BY THE 


4.8 BAD SECTORS 


DRIVE. TO BE _ TESTED ON THE CURRENT SUBSYSTEM. ACCORDING TO A SWITCH 
REGISTER OPTION (SEE SECTION 6.2) THIS LIST MAY BE TYPED AT THE 
CONSOLE AT THE START OF THE FIRST PASS. AFTER READING THE BAD SECTOR 
FILE, THE PROGRAM SEARCHES THE LIST OF BAD SECTORS TO DETERMINE IF ANY 
BAD SPOTS EXIST IN ANY TEST AREAS ON THE DISK PACK. IF A BAD SPOT IS 
i, a thee IN ANY OF THE TEST AREAS, THE FOLLOWING MESSAGE 


PACK IS NOT ACCEPTABLE, CHANGE PACK AND TRY AGAIN. 


4.9 EXECUTION TIME 


THE TOTAL TIME REQUIRED TO RUN THE DRIVE COMPATIBILITY PROGRAM IS 
DIRECTLY PROPORTIONAL TO THE NUMBER OF DRIVES TO BE TESTED AND 
REQUIRES ABOUT 2 MINUTES PER RMO3/2 DRIVE AND ABOUT 5 MINUTES PER RMOS 
DRIVE, NOT INCLUDING OPERATOR INTERVENTION. 


5.0 PROGRAM LOAD MEDIA 


THIS PROGRAM CAN BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER 
OR FROM THE ACT OR APT SYSTEMS OR FROM ANY MEDIA SUPPORTED BY XXDP. 
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6.0 PROGRAM OPTIONS 
6.1 STARTING ADDRESSES 


200 = THIS IS THE STARTING ADDRESS FOR DEFAULT PARAMETERS AND 
RUNNING OF PASS 1 AND PASS 2 ON A SINGLE SUBSYSTEM. THE 
PROGRAM WILL USE DEFAULT RH/RM BASE ADDRESS, INTERRUPT 
VECTOR AND PRIORITY. THE PROGRAM WILL ASSUME ALL DRIVES TO BE 
TESTED RESIDE ON ONE RH/RM SUBSYSTEM ONLY. 


204 - THIS IS _ THE STARTING ADDRESS TO RUN PASS 1 ON 
RH/RM SUBSYSTEMS WHICH RESIDE ON THIS PDP=-11 SYSTEM. THE 
PROGRAM WILL ASK FOR THE RH/RM BASE ADDRESS, INTERRUPT 
VECTOR, AND PRIORITY FOR EACH SUBSYSTEM ON THIS SYSTEM, AND 
IT ASKS FOR THE LETTER NAMES (A THRU H) ASSIGNED TO ALL 


KARA SS IHBIAAR AN 


lili ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee | 


APPLY RANDOM STALL BETWEEN OPERATIONS 
vp He SECTOR FILES (BSF‘S) AT START 


© 
» ie 
S 
—) 


220 


225 7.0 RUNNING THE PROGRAM 


225 ONCE THE PROGRAM HAS BEEN LOADED INTO CORE (IN A GIVEN SYSTEM, IF 
226 THERE ARE MULTIPLE SYSTEMS) THE FOLLOWING STEPS MUST BE TAKEN TO RUN 


PROGRAM WILL ASK FOR THE RH/RM BASE ADDRESS, INTERRUPT 
227 THE PROGRAM 


| 
| 
87 OTHER SUBSYSTEMS, AND THE DRIVE(S) WHICH WILL BE TESTED ON 
| 90 210 - THIS IS THE STARTING ADDRESS TO RUN PASS 2 ON ALL 
21 RH/RM SUBSYSTEMS WHICH RESIDE ON THIS PDP=11 SYSTEM. THE 
93 VECTOR FOR EACH SUBSYSTEM ON THIS SYSTEM, AND IT ASKS FOR 
94 THE LETTER NAMES (A THRU H) ASSIGNED TO ALL OTHER SUBSYSTEMS. 
95 AND THE DRIVE(S) WHICH WILL BE TESTED ON EACH. 
97 
98 
199 6.2 SWITCH REGISTER OPTIONS USED 
201 THIS PROGRAM IS DESIGNED TO ALLOW THE USE OF THE HARDWARE SWITCH 
202 REGISTER IF PRESENT, OR THE SYSMAC-SUPPORTED SOFTWARE SWITCH REGISTER 
203 (IF HARDWARE SWR IS NOT PRESENT, OR IS SET TO ALL ONES). IN EITHER 
504 CASE, THE FOLLOWING OPTIONS ARE IMPLEMENTED WHEN THE APPROPRIATE BITS 
205 ARE SET TO 1: 
207 BIT OPTION 
209 
10 15 HALT ON ERROR 
311 14 LOOP ON CURRENT TEST 
12 13 INHIBIT ERROR REPORTS 
213 12 REPORT DESCRIPTION ONLY. ON ERRORS 
214 11 UNUSED 
315 10 BELL ON ERROR 
216 09 LOOP ON ERROR 
218 
219 
| 
= 
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1. INSURE THAT ALL DRIVES TO BE TESTED ARE POWERED UP AND SINGLE 
PORT SELECTED. 


LOAD THE DESIRED START ADDRESS. 


SET ANY DESIRED BITS IN THE HARDWARE SWITCH REGISTER (IF 
PRESENT). 


4. START THE PROGRAM. 


5. FOLLOW ALL INSTRUCTIONS TYPED BY THE PROGRAM PERTAINING TO 
THE MANUAL _INTERVENTION REQUIRED, AND THE ALTERNATE USE OF 
MULTIPLE SYSTEMS (IF THERE ARE ANY). 


8.0 OPERATIONAL DIALOGUE 


THIS SECTION DESCRIBES THE CONSOLE TERMINAL DIALOGUE THROUGH WHICH THE 
PROGRAM DIRECTS THE OPERATOR, IN THE SELECTION OF OPTIONS AND THE 
LOADING AND UNLOADING OF DRIVES, AND THE MOVEMENT OF THE TEST 
CARTRIDGE. THE EXACT DIALOGUE WHICH IS Ly DEPENDS UPON THE STARTING 
ADDRESS WHICH WAS CHOSEN (SEE SECTION 6.1 


IN THE FOLLOWING DISCUSSION AND IN THE PRINTOUT OF TEST RESULTS, 
DRIVES TO BE TESTED WILL BE REFERRED TO BY A LETTER AND A NUMBER. THE 


LETTER IS THE SUBSYSTEM LETTER NAME (OPERATOR ASSIGNED), AND THE 
NUMBER IS THE DRIVE NUMBER ON — SUBSYSTEM. FOR EXAMPLE, DRIVE C6 


8.1 DIALOGUE FOR ADDRESS 200 START 


Hp WL i ADDRESS MAY BE USED FOR DEFAULTING PARAMETERS ON ONE 
THE PROGRAM FIRST IDENTIFIES ITSELF AS FOLLOWS: 
CZRMTAO - RMO5/3/2 DRIVE COMPATIBILITY TEST 
— THE PROGRAM ASKS THE DRIVES TO BE TESTED. 
THE PROGRAM TYPES THE 
DRIVE LIST, AS IN THE FOLLOWING EXAMPLE: 
DRIVES = 2,5,7<CR> 


THE PROGRAM NOW PROCEEDS WITH PASS 1, AND DIRECTS THE OPERATOR IN’ THE 
MOUNTING OF THE PACK, AS DESCRIBED IN SECTION 8.4. 


PLEASE NOTE THAT THERE IS ONLY ONE SUBSYSTEM ON AN ADR. 200 START, 
AND IT IS NAMED SUBSYSTEM A. THE DRIVES IN THE ABOVE EXAMPLE WOULD BE 
A TO AS A2,A5,A7 IN THE TEST RESULTS PRINTOUT AT THE END OF 


8.2 DIALOGUE FOR ADDRESS 204 START 


SEQ 0008 
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THIS STARTING ADDRESS MUST BE USED ON EACH SYSTEM, WHEN THERE IS MORE 
THAN ONE SUBSYSTEM, BUT IT MAY ALSO BE USED WHEN THERE IS JUST ONE 
SUBSYSTEM (TOTAL) T0 SPECIFY DRIVES TO TEST AND NON=DEFAULT PARAMETER 
VALUES, FOR PASS 7. 
THE PROGRAM IDENTIFIES ITSELF AS FOLLOWS: 

CZRMTAO = RMOS/3/2 DRIVE COMPATIBILITY TEST 
THEN, THE PROGRAM ASKS THE OPERATOR FOR THE DRIVES TO BE TESTED ON 
EACH OF THE POSSIBLE SUBSYSTEMS (STARTING WITH A - THE NAMES RANGE 
FROM SUBSYS A TO SUBSYS H. THERE COULD BE UP TO 8 SUBSYSTEMS, WITH A 
DRIVE ON EACH): 

SUBSYS A DRIVE(S) = 


boty A iggy THEN TYPES THE DESIRED DRIVE NUMBERS, AS IN THE FOLLOWING 


SUBSYS A DRIVE(S) = 2,5,7<CR> 
THE PROGRAM THEN VERIFIES THE DRIVE NUMBERS BY TYPING: 

WILL TEST DRIVE(S) 2,5,7 ON SUBSYS A. 
NEXT, THE PROGRAM ASKS THE FOLLOWING QUESTION: 

IS THERE ANOTHER SUBSYS (Y OR N)? 
THE OPERATOR TYPES ‘Y* OR 'N*. (IF JUST <CR> IS TYPED, THE PROGRAM 
ASSUMES THAT 'N* WAS TYPED). IF THE OPERATOR TYPED 'N', THE PROGRAM 
PROCEEDS WITH PASS 1, AND DIRECTS THE OPERATOR IN THE MOUNTING OF THE 
pox’'t AS DESCRIBED IN SECTION 8.4. IF ‘Y' WAS TYPED, THE PROGRAM ASKS 
FOR THE NUMBERS OF THE DRIVES TO Bi TESTED ON THE NEXT SUBSYSTEM 
(SUBSYS B) AS FOLLOWS: 

SUBSYS B DRIVE(S) = 
THE OPERATOR TYPES THE DRIVE NUMBERS, AS IN THE FOLLOWING EXAMPLE: 

SUBSYS B DRIVE(S) = 2,3<CR> 
THE PROGRAM THEN VERIFIES THE DRIVE NUMBERS. BY TYPING: 

WILL TEST DRIVE(S) 2,3 ON SUBSYS B. 
NEXT, THE PROGRAM WILL ASK: 

IS THERE ANOTHER SUBSYS (Y OR N)? 
AND IN THE SAME MANNER, THE OPERATOR SPECIFIES THE DRIVES ON EACH OF 
THE REMAINING SUBSYSTEMS, UNTIL ALL HAVE BEEN SPECIFIED. 


ALL SUBSYSTEMS MUST BE TESTED IN THE ORDER IN WHICH THE LETTERS ARE 
ASSIGNED (A THRU H). NEXT, THE PROGRAM ALLOWS THE OPERATOR TO ALTER 


SEQ 0009 
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THE RH/RM BUS ADDRESS, VECTOR ADDRESS FOR THIS SUBSYSTEM. FOR EACH 
PARAMETER THE CURRENT VALUE IS TYPED, AND THE OPERATOR IS GIVEN THE 
OPPORTUNITY TO TYPE IN A NEW VALUE, PLUS <CR>. IF JUST <CR> IS TYPED, 
THE PARAMETER IS NOT CHANGED. WHEN THE PROGRAM IS FIRST se ae THE 


RMCS1 
RMVEC 


THEN THE PROGRAM PROCEEDS WITH PASS 1, AND DIRECTS THE OPERATOR IN THE 
MOUNTING OF THE PACK, AS DESCRIBED IN SECTION 8.4. AT THE COMPLETION 
OF PASS 1 ON THE SUBSYSTEM, THE PROGRAM WILL INFORM THE OPERATOR HOW 


TO PERFORM PASS 1 ON THE NEXT SUBSYSTEM. 


000000 177670 
000 254 


8.3 DIALOGUE FOR ADDRESS 210 START 


THIS STARTING ADDRESS MUST BE USED ON EACH SYSTEM, WHEN THERE IS MORE 
THAN 1 SUBSYSTEM, BUT IT MAY ALSO BE USED WHEN THERE IS JUST ONE 
SUBSYSTEM (TOTAL) , TO SPECIFY DRIVES TO TEST AND NON=DEFAULT 
ay i VALUES, FOR PASS 2. THE PROGRAM IDENTIFIES ITSELF, AS 


CZRMTAO = RMO5/3/2 DRIVE COMPATIBILITY TEST 


THE DIALOGUE FOR 210 START IS IDENTICAL TO THE DIALOGUE FOR THE 204 
START DESCRIBED ABOVE (SECTION 8.2), FOR THE wr ie oe 


VARIOUS SUBSYSTEMS. HOWEVER, AFTER THIS DIALOGUE IS COMPLETED, THE 
PROGRAM PROCEEDS WITH PASS 2, AND DIRECTS THE OPERATOR IN THE MOVEMENT 
OF THE PACK, AS DESCRIBED IN SECTION 8.5. 


TEST MAY BE PERFORMED IN STEPS, AT VARIOUS TIMES AND BETWEEN VARIOUS 
DISTANT LOCATIONS, BY MOVING THE TEST PACK AND SAVING THE PRINTOUT 
FROM EACH P,,SS ON EACH PDP=11 SYSTEM INVOLVED. 


8.4 PASS 1 DIALOGUE 


AFTER THE SELECTION OF PARAMETERS AND DRIVES HAS BEEN COMPLETED ON THE 
CURRENT SUBSYSTEM (SECTIONS 8.1-8.2), THE PROGRAM INDICATES THE START 
OF PASS 1 AS FOLLOWS: 


** STARTING PASS 1 ON SUBSYS A 


NOTE: THAT SUBSYSTEM ‘A' IS ALWAYS THE FIRST SUB-SYSTEM TO BE TESTED 
REGUARDLESS OF HOW MANY SUB-SYSTEMS ARE TO BE TESTED. 


ee ee — ee ow ee ee we - 
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NEXT, THE PROGRAM SELECTS THE FIRST DRIVE TO BE TESTED ON THIS 
SUBSYSTEM, AND INSTRUCTS THE OPERATOR TO MOUNT THE TEST CARTRIDGE AND 
LOAD THE HEADS ON THAT DRIVE, AS IN THE FOLLOWING EXAMPLE : 


MOUNT PACK ON DRIVE A2 AND LOAD. 
TYPE <CR> WHEN DRIVE READY. 


THE OPERATOR PERFORMS THIS TASK AND TYPES <CR> WHEN THE DRIVE IS READY. 
THE PROGRAM PERFORMS PASS 1 FUNCTIONS ON THIS DRIVE (SEE SECTION 9.1) 
he TE netting THE OPERATOR TO UNLOAD THE DRIVE AND REMOVE THE PACK 


UNLOAD DRIVE A2 AND REMOVE PACK. 
TYPE <CR> WHEN DONE. 


THE OPERATOR PERFORMS THESE FUNCTIONS AND TYPES <CR> AFTER THE PACK 
HAS BEEN REMOVED. 


IN THE SAME MANNER, THE PROGRAM INSTRUCTS THE OPERATOR IN THE MOVEMENT 
OF THE PACK THROUGHOUT THE REST OF THE DRIVES ON THE CURRENT 
SUBSYSTEM. WHEN THIS HAS BEEN COMPLETED, THE PROGRAM DOES ONE OF 
THREE THINGS: (1) IF THERE IS ONLY ONE SUBSYSTEM (FROM ADR 200 
START) THE PROGRAM BEGINS PASS 2 (SEE SECTION 8.5). (2) IF THERE 
IS ANOTHER SUBSYSTEM, THE PROGRAM DIRECTS THE OPERATOR TO PERFORM 
PASS 1 ON THE NEXT SUBSYS AS FOLLOWS: 


** STARTING PASS 1 ON SUBSYS B 


(3) IF THERE ARE NO MORE DRIVES TO TEST IN PASS 1 ON ANY SUBSYS, THE 
PROGRAM DIRECTS THE OPERATOR TO BEGIN PASS 2 ON THE FIRST SUBSYS (SEE 
SECT. 8.5) AS FOLLOWS: 


** STARTING PASS 2 ON SUBSYS A 


NOTE: THAT SUB-SYSTEM ‘A’ IS ALWAYS THE FIRST SUB-SYSTEM TO BE TESTED 
REGARDLESS OF HOW MANY SUB-SYSTEMS ARE TO BE TESTED. 


8.5 PASS 2 DIALOGUE 


THE OPERATOR RETURNS TO THE FIRST SUBSYSTEM TO PERFORM PASS 2 EITHER 
THROUGH THE DIALOGUE OF THE ADR 200 START, OR AFTER THE SELECTION OF 
PARAMETERS AND DRIVES HAS BEEN COMPLETED IN ACCORDANCE WITH THE 
DIALOGUE OF THE ADR 210 START (SEE SECTION 8. 2) IN EITHER CASE, THE 
PROGRAM INDICATES THE START OF PASS 2 BY TYPING 


** STARTING PASS 2 ON SUBSYS A 


THE PROGRAM THEN DIRECTS THE OPERATOR IN THE UNLOADING, PACK MOVEMENT, 
AND LOADING OF ALL DRIVES ON THE FIRST SUBSYSTEM, IN THE SAME MANNER 
AS DESCRIBED FOR PASS 1 (SEE SECTION 8.4). 


HOWEVER, AFTER PASS 2 TESTING (SEE SECTION 9.2) IS COMPLETED ON A 
GIVEN DRIVE, THE ENTIRE TEST RESULTS FOR THAT DRIVE ARE TYPED. THE 
DETAILS OF THIS PRINTOUT ARE DESCRIBED IN SECTION 10. AFTER THE 
DETAILS OF THE TESTING ARE DESCRIBED. 


SEQ 0011 — 
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SEQ 0012 
457 
458 WHEN PASS 2 HAS BEEN COMPLETED FOR ALL DRIVES ON THE FIRST SUBSYSTEM, 
459 THE PROGRAM DOES ONE OF He ® THINGS: (1) IF THERE IS ONLY ONE 
460 SUBSYSTEM (FROM ADR 200 START) IF ALL DRIVES ON ALL SUBSYSTEMS HAVE 
461 BEEN TESTED IN PASS 2 (FROM ADR 210 START), THE ENTIRE TESTING AND 
aoe REPORTING HAVE BEEN COMPLETED, AND THE PROGRAM TYPES: 
464 TEST COMPLETE 
465 RUERKKKKKKKKKKKK 
466 
467 (2) IF THERE IS ANOTHER SUBSYSTEM, HOWEVER, THE PROGRAM DIRECTS THE 
468 OPERATOR TQ PERFORM PASS 2 ON THE NEXT SUBSYSTEM AS FOLLOWS: 


9.0 DESCRIPTION OF TESTS 


THE MAIN oie bee BLOCKS OF CODE IN THE PROGRAM ARE ASSIGNED TEST 
NUMBERS, FOR THE PURPOSE OF IDENTIFICATION IN ERROR PRINTOUTS. TEST 0 
REFERS TO THE OPERATOR INPUT DIALOGUE ROUTINES DESCRIBED IN SECTIONS 
8.1-8.3. THE OTHER TEST NUMBERS ARE ASSIGNED BELOW, IN THE 
DESCRIPTION OF PASS 7 AND PASS 2 TESTING. 


IN THE FOLLOWING giles Ra A~G ARE REFERRED TO. IN _ THESE 
TABLES, DRIVES ARE NAMED FROM 0-7 FOR ILLUSTRATIVE PURPOSES, ALTHOUGH 
THE DRIVES ARE NAMED THE FOLLOWING WAY IN AN ACTUAL SITUATION: 


AO.A1, A2,...B0,81,B2,...C0,C1,C2,... ETC. (SEE SECTION 8.0). 


9.1 DESCRIPTION OF PASS 1 TESTS 


IN PASS 1, THE BASIC READ/WRITE CAPABILITY OF EACH DRIVE IS 
DEMONSTRATED, AND COMPATIBILITY DATA PATTERNS ARE WRITTEN BY ALL 
DRIVES UPON THE SAME TEST CARTRIDGE. 


THE SEQUENCE OF OPERATIONS PERFORMED ON EACH DRIVE IS AS FOLLOWS: 


1. TEST 1 = MOUNTING OF TEST CARTRIDGE FOR PASS 1 = THE 
OPERATOR MOUNTS THE PACK ON THIS DRIVE AND MANUALLY LOADS THE 
HEADS, AS DIRECTED BY THE PROGRAM (SEE SECTION 8.4). 


2. TEST 2 = BASIC READ/WRITE DATA TEST = THE PROGRAM PERFORMS 
A WRITE AND WRITE CHECK A ie ES USING A ‘WORST CASE** DATA 


| 
469 

470 ** STARTING PASS 2 ON SUBSYS B 
TABLE A) iL $ 
TO VERIFY THE BASIC READ/WRITE CAPABILITY OF THE DRIVE ON 
PASS 1. THE ENTIRE SECTOR IS WRITTEN WITH THE REPETITION OF 
THE DATA PATTERN SHOWN IN TABLE B. 

0 3. TEST 3 = THE PROGRAM WRITES ALL oe FOR THIS 

1 DRIVE WITHIN THE CYLINDER BLOCKS SHOWN TABLE C ON ALL 

2 SURFACES USING A SINGLE REPEATED WORD OF THE PATTERN IN 

3 TABLE G. DRIVE 0 USES WORD 0, DRIVE 1 USES 





+ ee ee 


a 


ro 
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THE 
OPERATOR MOUNTS THE PACK ON THIS DRIVE AND MANUALLY LOADS THE 


568 
569 2. TEST 6 = WRITE TEST = NEXT, THE PROGRAM PROCEEDS TO 
570 | TEST THIS ODRIVE'S OVERWRITE CAPABILITY. FIRST, THE 


| 
a 
caw WORD 1, DRIVE 7 USES WORD 7, ETC. THUS, THE DATA 
| 515 FROM EACH DRIVE IS UNIQUE. "TABLE CHAS “BEEN DETERMINED AS 
218 FOLLOWS: 
| 518 IN EACH OF THE SEVEN WRITE CURRENT ZONES ON EACH SURFACE. 
519 SECTORS ARE WRITTEN WITHIN TWO DISTINC! CYLINDER BLOCKS. 
520 THE FIRST 16 CYLINDERS OF EACH WRITE CURRENT ZONE 
551 IS THE FIRST BLOCK USED FOR WRITE TEST IN PASS 2. THE LAST 
552 16 CYLINDERS OF EACH CURRENT 
523 ZONE (EXCEPT THE INNERMOST ZONE) IS THE SECOND BLOCK 
554 USED FOR READ TEST IN PASS 2. 
595 WITHIN EACH CURRENT ZONE. THESE TWO BLOCKS ARE IDENTICALLY 
556 WRITTEN. HOWEVER, THE SECTORS DESIGNATED TO EACH DRIVE 
597 ARE ROTATED FROM ZONE TO ZONE SO THAT THE 
528 DATA APPEARS AT VARIOUS ANGULAR POSITIONS ON THE PACK. 
530 WITHIN EACH CYLINDER BLOCK, UP TO 32 SECTORS ARE WRITTEN 
531 (DEPENDING ON THE NUMBER OF DRIVES BEING TESTED) ON EACH 
532 CYLINDER. 
534 THE BASIC LAYOUT OF A TYPICAL CYLINDER BLOCK IS SHOWN IN 
535 TABLE D, WHERE THE BLOCK SHOWN IS THE READ TEST BLOCK FOR 
536 ZONE 1, WHICH STARTS ON CYLINDER 112. AND HAS THE ROTATING 
537 : STARTING SECTOR = SECTOR 0. EACH NUMBER INSIDE THE BLOCK IS 
538 os THE NUMBER OF THE DRIVE WHICH WRITES THAT SECTOR. TABLE D 
539 ~ SHOWS THE BLOCKS WRITTEN BY EACH OF 16 DRIVES. IF ANY OF THE 
540 see DRIVES SHOWN ARE NOT PRESENT, HOWEVER, THE BLOCKS RESERVED 
541 ‘ FOR THE MISSING DRIVES ARE SIMPLY NOT WRITTEN. 
543 : THE ABOVE PATTERN OF SECTOR WRITES INSURES THAT DATA FROM 
544 EACH DRIVE IS WRITTEN ON ADJACENT CYLINDERS TO DATA FROM 
545 EVERY OTHER DRIVE, IN BOTH DIRECTIONS. IN ADDITION, THE 
546 ROTATION OF THE ABOVE SECTORS FROM CURRENT ZONE TO CURRENT 
547 ZONE INSURES THAT WRITE TEST AND READ TEST AR 
548 DONE AT SEVERAL DIFFERENT ANGULAR POSITIONS WITH RESPECT TO 
549 THE CARTRIDGE. 
551 4. TEST 4 - DISMOUNTING OF TEST CARTRIDGE IN PASS 1 - THE 
552 OPERATOR UNLOADS THE DRIVE AND DISMOUNTS THC PACK. AS 
553 DIRECTED BY THE PROGRAM (SEE SECTION 8.4), TO PROCEFD WITH 
226 THE ABOVE STEPS ON THE NEXT DRIVE. 
556 
597 9.2 DESCRIPTION OF PASS 2 TESTS 
559 IN PASS 2,THE ABILITY OF EACH DRIVE TO COMPLETELY OVERWRITE DATA 
560 WRITTEN BY ALL OTHER DRIVES AND TO READ DATA WRITTEN BY ALL OTHER 
561 DRIVES, IS TESTED. 
63 THE SEQUENCE OF OPERATIONS PERFORMED BY EACH DRIVE IS AS FOLLOWS: 
565 1. TEST 5 - MOUNTING OF TEST CARTRIDGE FOR PASS 2 - 
| 567 HEADS, AS DIRECTED BY THE PROGRAM (SEE SECTION 8.5). 
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APPROPRIATE CYLINDERS IN TABLE E FOR THIS DRIVE ARE 
OVERWRITTEN, ON EACH SURFACE. THE DATA USED IS A REPETITION 
OF A SINGLE WORD OF THE PATTERN IN TABLE G, RIVE 0O 

USES WORD 0, DRIVE 1 USES WORD 1, DRIVE 7 

USES WORD 7, ETC. 


THEN, EACH CYLINDER OVERWRITTEN IS READ BACK BY THIS ODRIVE 
IN EACH OFFSET bg (+ AND -). THE PROGRAM SCANS FOR 
READ ERRORS (DCK,HCRC,ETC.) DURING THIS READ. IF ONE 
OCCURS, THE PROGRAM DETERMINES WHICH DRIVES DATA HAS NOT 
BEEN CORRECTLY OVERWRITTEN, AND A SCORE FOR THAT DRIVE IS 
DECREMENTED. _ THEN, THE TRANSFER IS CONTINUED AT THE NEXT 
SECTOR, WITH THAT OFFSET VALUE. THE READS ARE DONE WITH ALL 

OF THE ABOVE OFFSETS APPLIED. AND A SEPARATE SCORE FOR EACH 


OVERWRITES. FOR EACH TRACK , SCORES ARE AVERAGED OVER 

ALL CYLS TESTED, IN EACH OFFSET DIRECTION. AT THE COMPLETION 
OF THE OVERWRITE TEST ON THIS fon Bh , LHE SCORES OF ALL THE 
DRIVES ARE CONVERTED AND STORED, FOR PRINTING AT THE END OF 
PASS 2 (AS DESCRIBED IN SECTION 10.2). EACH SCORE 
te TO THE OFFSET IN A GIVEN DIRECTION BY THE CURRENT 
SeeatE “Etta READING THE DATA IT WROTE OVER ONE OF THE OTHER 
DRIVE*S DATA THUS, THE PRINTOUT REVEALS WHICH DRIVES ARE 
INVOLVED, IN A SITUATION IN WHICH A DRIVE CANNOT OVERWRITE 
ONE OR SEVERAL OTHER DRIVE'S DATA. 


TEST 7 = DRIVE SELF-TEST = THE PROGRAM NEXT EVALUATES THE 
DRIVE'S ABILITY TO WRITE AND READ ITS OWN DATA, AT VARIOUS 
POSITIONS ON THE PACK. FIRST, ALL SECTORS OF THE 
APPROPRIATE CYLINDERS SHOWN IN TABLE F FOR THIS why ARE 
WRITTEN WITH THE DATA PATTERN SHOWN IN TABLE B, FOR ALL 
SURFACES. THEN, THE SECTORS ARE READ WITH OFFSET 

IN EACH DIRECTION. 

THE PROGRAM SCAN 


CYLINDER BLOCK ARE AVERAGED, TO COME UP WITH A_ DRIVE 
SELF-TEST SCORE FOR EACH SURFACE FOR EACH OFFSET DIRECTION. 
THIS SCORE IS SAVED FOR LATER USE, TO BECOME THE STANDARD FOR 
THE READS WHICH ARE TO FOLLOW. 


TEST 10(OCTAL) - gE Sy DATA READ TEST = HAVING ESTABLISHED 
A_ SELF-TEST SCORE FOR THIS DRIVE, THE PROGRAM PROCEEDS TO 
PERFORM THE COMPATIBILITY DATA READS OF THE PATTERNS WRITTEN 
BY ALL _ THE DRIVES IN EACH CYLINDER BLOCK (ON EACH ye ee 
EACH Speed uae ag CYLINDER BLOCK SHOWN IN TABLE C IS READ, 
CYLINDER AT A TIME IN EACH OFFSET DIRECTION. 

PROGRAM SCANS 


THE SC 

FOR READ ERRORS DURING EACH READ AND IF ONE OCCURS, THE 
PROGRAM DETERMINES We CH DRIVE’S DATA WAS BEING READ AT THAT 
INSTANT AND A SCORE FO). THAT DRIVE - DECREMENTED. THEN, THE 
TRANSFER IS CONTINUED AT THE NEXT SECTOR, WITH THAT OFFSET 
+ | tea READS ARE DONE WITH OFFSETS IN _ DIRECTION. 
AND A SEPARATE SCORE FOR EACH DRIVE IS KEPT, WHIL 

THE CURRENT DRIVE IS READING THE COMPATIBILITY DATA. THEN 
EACH SCORE IS APPROPRIATELY ADJUSTED TO REFLECT THE SELF-TEST 


SEQ 0014 





eee eee ee a 
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SEQ 0015 


628 


rs 
ro 


SCORE FOR THE CURRENT DRIVE AT THAT PARTICULAR CYLINDER 
BLOCK. THE SCORES ARE THEN AVERAGED OVER ALL CYLINDER 
BLOCKS. EACH SCORE IS PROPORTIONAL TO THE CAPABILITY OF THE 
CURRENT DRIVE TO SUCCESSFULLY READ THE DATA WRITTEN BY ONE OF 
THE OTHER DRIVES, AND SCORES ARE COMPUTED SEPARATELY FOR EACH 
SURFACE (TRACK), FOR EACH OFFSET DIRECTION. THUS, THE 
PRINTOUT REVEALS WHICH DRIVES ARE INVOLVED IN A SITUATION IN 
WHICH A_ PARTICULAR DRIVE HAS DIFFICULTY IN READING THE DATA 
OF ONE OR SEVERAL OTHER DRIVES. 


5. TEST 11(OCTAL) = TYPE TEST SCORES AND DISMOUNT PACK IN PASS 2 - 
THE OVERWRITE AND 1, angel om ged Us DATA READ TEST SCORES FOR 
THIS DRIVE ARE CONVERTED AND TYPED. THEN, OPERATOR 
UNLOADS THE DRIVE AND DISMOUNTS THE PACK AS DIRECTED BY THE 
we wath 8.5), TO PROCEED WITH THE ABOVE STEPS ON 


10.0 PRINTOUT OF TEST RESULTS 
THE TEST RESULTS ARE PRINTED AT THE END OF PASS 2 ON EACH DRIVE BEING 


TESTED. THESE RESULTS PERTAIN TO THE OVERWRITE TEST AND THE 
COMPATIBILITY DATA READ TEST. 


10.1 TEST RESULTS 
THE RESULTS OF BOTH THE OVERWRITE AND OF THE COMPATIBILITY DATA READ 
ARE PRINTED, REGARD OF DEGREE OF SUCCESS. IF THE TEST IS SUCCESSFUL, 
THE MESSAGES: 

** ALL DRIVES ARE COMPATIBLE ** 


IS PRINTED. IF THE TEST IS FAILURE, THE TEST RESULTS 
ARE TABULAR IN FORM AS SHOWN. 


IN THE FOLLOWING west THERE ARE 2 SYSTEMS, AND THE DRIVES BEING 
ad A ly AO.A1,A2,B0, AND BS. THE TEST RESULTS FOR DRIVE Al ARE 


SCORES FOR DRIVE Al: 


TRACK DRIVE OVRWRT OVRWRT READ READ 
NO. READ OF ST- OF ST+ OF ST- OF ST+ 
0 Ad * 0 * 0 


THE ABOVE EXAMPLE REVEALS A POSSIBLE COMPATIBILITY PROBLEM EXISTS 
BETWEEN DRIVES Al AND A2. NOTICE o ON TRACK Q, THAT THE OVERWRITE 
SCORES WERE UNACCEPTABLY LOW (0), AND THE PROGRAM NOTED THESE BAD SCORES 
WITH AN ASTERISK (*). ALL ACCEPTABLE TEST RESULTS ARE NOT PRINTED. 


11.0 ERROR REPORTING 


eae ee en 
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| 
| SEQ 0016 
| 685 ' 
| $86 11.1 COMMON ERRORS : 

688 THE FOLLOWING IS A LIST OF COMMON ERROR MESSAGES WHICH ACCOMPANY ERROR 
689 TYPEOUTS FROM THE RMOS/3/2 DRIVE COMPATIBILITY PROGRAM. THE ERRORS ARE 

60 SELF EXPLANATORY. 

092 ADDRESS PLUG CHANGE BIT SET 

69% RH DIDN'T RESPOND TO ADDRESSING 

6% UNCORRECTABLE MASSBUS PARITY ERROR 

698 FATAL MASSBUS PARITY ERROR 

700 PERSISTENT DEVICE UNSAFE 

702 OPERATION NOT COMPLETED WITHIN TIME LIMIT 

704 DRIVE WENT OFFLINE 

706 NO RESPONSE TO PORT REQUEST 

708 HEADER CRC ERROR 

710 DATA CHECK "DCK' ERROR 

712 WRITE CHECK ERROR - DATA CHECK 'DCK* SET 

714 WRITE CHCKE ERROR - DATA CHECK 'DCK* NOT SET 

4 , HEADER READ ERROR - ‘FMT* BIT DROPPED 

718 HEADER READ ERROR - HEADER COMPARE ‘HCE’ ERROR 

7200 FORMAT ERROR 'FER' 

722 HEADER COMPARE 'HCE’ ERROR 

72 MISCELLANEOUS DRIVE ERROR 

726 OPERATION INCOMPLETE 'OPI* ERROR 

728 DRIVE TIMING 'DTE* ERROR 
730 PARITY "PAR' ERROR AFTER OPERATION STARTED 

732 WRITE CLOCK FAILURE 'WCF* ERROR 

73 INVALID ADDRESS 'IAE* ERROR 

736 WRITE LOCK "WLE* ERROR 

738 DATA CHECK "DCK* SET DURING WRITE CHECK COMMAND 

740 RH OR UNIBUS TRANSFER ERROR 
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BUS ADDRESS OR WORD COUNT INCORRECT 

DATA COMPARE ERRORS = NO OTHER ERROR(S) DETECTED 
CAN"T MATCH DATA READ WITH A PATTERN 

ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RH 

ECC LOGIC FAILURE = POSITION REGISTER VALUE NOT VALID 
BUS ADDRESS AND WORD COUNT NOT CONSISTENT 

SEEK INCOMPLETE ‘SKI° ERROR 

PROGRAM DETECTED POSITIONING ERROR 

DRIVE UNSAFE ERROR 


11.2 ERROR HANDLING 

ERRORS REPORTED BY THE PROGRAM CONSIST OF COMMON FAILURES RESULTING 
FROM ATTEMPTED SUBSYSTEM FUNCTIONS, AS WELL AS CERTAIN ERRORS UNIQUE 
TO PARTICULAR TESTS. EACH ERROR PRINTOUT CONSISTS OF AN ERROR 
DESCRIPTION AND TEST NUMBER, POSSIBLY FOLLOWED BY HEADER LINES, COLUMN 
HEADINGS, AND COLUMNS OF REGISTER CONTENTS IN OCTAL. AS MUCH 
MEANINGFUL REGISTER DATA AS POSSIBLE (FOR EXAMPLE, RH/RM REGISTERS) 
ARE REPORTED IN A GIVEN ERROR. OTHER ERROR REPORTS MAY CONSIST OF A 
SINGLE DESCRIPTIVE LINE. 


11.3. ERROR PRINTOUT EXAMPLE 
RH OR UNIBUS TRANSFER ERROR 
DRIVE RMCS1 RMWC RMBA RMDA 
000001 144250 174400 0055030 000431 


RMER1 
000000 


RMCS2 = RMDS RMAS RMDB 
000100 010700 000000 000000 


RMMR1 = RMDT RMOF RMD C RMMR2 
000050 024024 010000 000716 011777 


RMER2 RMEC1 RMEC2 
000000 004066 000000 


12.0 TABLE DESCRIPTIONS 


12.1 TABLE A - BASIC READ/WRITE TEST SECTORS 
ADDRESS OF SECTOR ON EACH SURFACE 


mm ae 


SEQ 0017 
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SEQ 0018 
ee 
800 
BO DRIVE NO. CYLINDER SECTORS 

805 0 620 0 
804 1 620 1 
805 é 620 2 
806 3 620 3 
807 4 620 4 
808 5 620 5 
809 6 620 6 
810 ? 620 7 
811 8 620 8 
812 9 620 9 
813 10 620 10 
814 11 $20 11 
815 12 620 12 
816 13 620 13 
817 14 620 14 
818 15 620 15 
819 
% 
acs 12.2 TABLE B - WORST CASE DATA PATTERN (REPEATS EVERY 16 WORDS) 
ase WORD NO. DATA (OCTAL) 

826 0 666 
827 1 155554 
828 2 133331 
829 3 066663 
830 “ 155546 
831 5 133315 
832 6 066633 
835 7 155466 
834 8 133155 
835 9 066333 
836 10 154 
837 11 131555 
838 12 0633335 
839 13 4 

840 14 115555 
841 15 033533 
842 


OVERWRITE CYL COMPATIBILITY CYL 
RANGE 


BLOCK RANGE BLOCK 
CYL 0-15 CYL 112-127 
128-143 240-2 
256-271 368-383 
384-399 496-511 
512-527 624-639 





SEQ 0019 
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12.6 TABLE F = SELF-TEST CYLINDERS 


DRIVE # 


MEW] OOONAUS WP 


CYLINDERS 


17, 145,273,401 529,657,785 


18. 146.274.402.530.658. 786 
19; 147.275.403.531 .659.787 
20; 148.276.404.532,660,788 
21. 149.277.405.533,661.789 
22, 150,278,406. 534.662.790 
23.151.279.407,535,663,791 
24, 152,280,408. 536.664 792 
25. 153.281.409.537 ,665.793 
26. 154.282.410,538,666,79% 
27.155.283.411.539,667.795 
28, 156.284.412,540,668,796 
29° 157.285.413.541 669.797 
30; 158: 286.414.542.670,798 
31° 159.287.415,.543,671.799 
32; 160,288.416,544.672,800 


12.8 TABLE G - PSEUDO-RANDOM DATA PATTERN 


WOOO NAULSWN- © 


; 
1 


DATA (OCTAL) 


SEQ 0020 
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13.0 RM SOFTWARE DRIVER DOCUMENT 


13.1 


13.2 


THIS DOCUMENT IS THE USER'S GUIDE FOR THE RM DRIVER. 
TO INITIALIZE THE DRIVER: 

JSR PC,RMINIT 

RETURN 


UPON RETURN YOU MUST EXAMINE THE ‘DRVSTA’’ TABLE TO DETERMINE 
THE DRIVES THAT ARE ONLINE FOR TESTING. THE ‘DRVSTA' TABLE IS 
EIGHT BYTES; ONE BYTE PER DRIVE. THE STATE OF EACH DRIVE WILL 
BE INDICATED AS FOLLOWS: 


DRVSTA DRIVE STATE 


ONL INE 

= OFFLINE, DRIVE 
IS NOT AN RMO5/3/2, OR 
NONEXISTENT DRIVE 

<0 UNSAFE 


THE DRIVE TYPE IS DEFINED IN AN 8 BYTE LONG TABLE TAGGED ‘DRVTYP'. 


THE TABLE CONTAINS ONE BYTE FOR EACH DRIVE AND IS INDEXED BY THE 
DRIVE NUMBER. ENTRIES ARE ENCODED AS FOLLOWS: 


DRVTYP CONDITION 
0 NONEXISTENT DRIVE 
5 RMO2 
4 RMO3 
7 RMO5 
-1 NOT AN RMO5/3/2 


THE "RMINIT* ROUTINE WILL DO A READIN PRESET AND WILL SET FMT16. 


AFTER THE DRIVER HAS BEEN INITIALIZED, IT IS CALLED USING THE 
FOLLOWING SEQUENCE. 


CALL: 
JSR RO,RMOS sMAKE THE CALL 
PNTDPB ;ADDRESS OF DPB* 
RETURN1 RETURN IF QUEUE IS FULL 
RE TURN2 sRETURN IF REQUEST IS IN 
: OAROR OR THERE IS AN 


*DPB (DATA PARAMETER BLOCK) 


SEQ 0021 
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SEQ 0022 

1027 
1028 PNTDPB: .BYTE 0O ;(0) DRIVE NUMBER 
1029 BYTE O 3(1) OFFSET VALUE OR FMT16, ECT, AND HCI 
1030 BYTE OQ 3(2) COMMAND 
1031 BYTE OQ 3(3) PSEL AND A17 AND A16 
1032 -WORD QO 3 (4) COUNT (MUST BE NEG.) 
1033 -WORD 0 ;(6) BUFFER ADDRESS 
1034 SREGISTER TABLE POINTER 
1035 BYTE 0O ;(10) SECTOR ADDRESS OR 
1036 :FIRST REG. INDEX 
1037 -BYTE 0O :(11) TRACK ADDRESS OR 
1038 ;LAST REG. INDEX 
1039 -WORD 0 : (12) CYLINDER ADDRESS 
1040 -WORD 0O 3(14) ERROR TABLE POINTER 
1041 :POINTS TO THE FIRST OF TWENTY 
1042 ;LOCATIONS OF WHERE THE DRIVER 
1043 :IS TO STORE THE RH/RM 
1044 sREGISTERS ON AN ERROR. IF LEFT 
1045 ;ZEROQ REGISTERS ARE NOT SAVED. 
1046 -WORD 0 3(16) STATUS/ERROR INDICATOR 
1047 3B1T15=1=>ERROR OCCURRED 
1048 3B1T07=1=>DONE 
1049 :B1T14=BIT09 AND BIT06-81T03 
inet ; INDICATE TYPE OF ERROR 
1052 13.3 THE DRIVER PROVIDES A SOFTWARE TIMEOUT CAPABILITY. 
1053 TO UTILIZE THIS CAPABILITY YOU MUST SUPPLY Ve "RM TIMER’ ROUTINE 
inte WITH THE ELAPSED TIME IN THE FOLLOWING MANNER 
1056 MOV #16.,-(SP) 216 MILLISECONDS BETWEEN 
1057 sCLOCK TICKS 
ipee JSR PC,RMTMR ;CALL THE TIMER ROUTINE 
1060 IT SHOULD BE NOTED THAT YOU MUST PROVIDE THE CODE TO DRIVE THE 
1061 CLOCK. AND THE ELAPSED TIME MUST BE IN MILLISECONDS. 
1062 THE DRIVER WILL SET THE TIMEOUT TO 1 SECOND FOR ALL POSITIONING 
1063 AND DATA TRANSFER OPERATIONS AND WILL SET THE TIMOUT TO 30 
whee SECONDS FOR ERROR RECOVERY OPERATIONS. 
1066 
++ 1A 13.4 EXAMPLE = WRITE 1000. WORDS 
1069 1$: JSR RO,RMOS ;CALL THE DRIVER 
1070 WRTDPB ;DPB ADDRESS 
1071 BR 1$ sWAIT FOR QUEUE IF FULL 
1072 2$: TST WRTDPB+16 sWAIT FOR COMMAND TO COMPLETE 
1073 BEQ 2$ 
1074 BM] ERROR1 sERROR OCCURRED 
1075 ; 
1076 . 
1077 ‘ 
1078 
1079 WRTDPB: .BYTE 5 sDRIVE 45 
1080 0 : 

1 ;WRITE COMMAND 
082 0 


“WORD COUNT 


a a ae ee St -- 
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SEQ 0023 
ay 
.WORD WRTBUF :BUFFER ADDRESS 
‘BYTE 3 “SECTOR 
“BYTE : TRACK 
-WORD 400 = CYLINDER 
-WORD ERRTBS “ERROR TABLE 
-WORD 0 :STATUS/ERROR INDICATOR 
ALTERNATE DPB SETUP 
WRTDPB: .WORD 5 : THIS SETUP ACHIEVED 
“WORD WRITE : EVERYTHING THE 
“WORD -1000. VE TABLE DID, BUT 
“WORD WRTBUF = IN A CLEANER FORMAT 
-BYTE 3,5 
-WORD 400,ERRTBS,O 
RH/RM REGISTERS 
MNEMONI C INDEX 
RMCS1 0 
RMWC 2 
RMBA 4 
RMDA 6 
RMCS2 10 
S 12 
RMER1 14 
RMAS 16 
RMLA 20 
RMDB 22 
RMMR 1 24 
RMD T 26 
RMSN 30 
RMOF 32 
RMDC 34 
RMHR 36 
40 
RMER? 42 
RMEC1 44 
RMEC2 46 
COMMANDS PERFORMED BY THE DRIVER 
COMMAND CODE COMMAND TYPE 
NO OPERATION 101 N 
UNLOAD 103 N 
SEEK 105 p 
RECALIRATE 107 p 
DRIVE CLEAR 111 N 
RELEASE 113 N 
OFFSET 115 p 
RETURN 10 CENTER 117 p 
READIN PRESET 121 N 
PACK ACKNOWLEDGE 123 N 


mr ee ea | awe we ee 


mmm ee eee —_ 
A 


 . 
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DATA TRANSFER 
SPECIAL PROVIDED BY THE DRIVER 


13.7 DPB STATUS/ERROR INDICATOR WORD 
THIS INDICATOR WILL INFORM THE USER OF THE RESULTS OF THE REQUEST. 


“nov! 


SEQ 0024 
1141 SEARCH 131 a 
1142 GET REGISTER(S) 141 S 
1143 SET FORMAT 143 S 
144 SELECT DRIVE 145 S 
145 WRITE CHECK DATA 151 D 
146 WRITE CHK HEADER & DATA 153 D 
147 WRITE DATA 161 D 
148 WRITE HEADER & DATA 163 D 
149 READ DATA 171 D 
READ HEADER & DATA 173 D 
152 
153 HOUSEKEEPING 
154 POSITIONING 
155 
156 
157 
158 
: 9 
161 THIS IS ACCOMPLISHED BY SETTING VARIES BITS OF THE INDICATOR TO 
1 $ A ONE. 
BIT NO. MEANING IF ON A *'1"' 
15 ERROR OCCURRED 


NS SIA AAAARAAAQMUNMUIUWIVIVINNNT ES BEB RR ARE 
JRA 3 Sak “¢ S 


OTHER THAN I/O. 
4(2) CORRECTABLE UNSAFE CONDITION OCCURRED 


ee Sc el lh ee ee em ee ee ek ee eh me ee ee me ee ed Od eed eed wd ed eed 


2) 
N 


1 

168 DONE (BITO7=0); BITS 14-10 SPECIFIES TYPE 
; DONE (BITO7=1); BITS 06-03 SPECIFIES TYPE 
171 14(1) USER MADE A REQUEST FOR A FUNCTION TO BE 

2 PERFORMED ON AN OFFLINE OR UNSAFE DRIVE 

1 13(1) USER MADE A REQUEST FOR A FUNCTION 

1 TO BE PERFORMED ON A DRIVE THAT HAS AN 
UNLOAD REQUEST IN QUEUE. 

12(2) PERSISTENT UNSAFE CONDITION EXIST. 

H+ 11(2) UNCORRECTABLE PARITY ERROR OCCURRED 

182 10(2) (4) FATAL PARITY ERROR. A MASSBUS CLEAR WAS 
183 PERFORMED, ALL QUEUES WERE EMPTIED, AND 

ize ALL DRVACT'S SET TO THE IDLE STATE 

Hy 9 9(3) (4) SOFTWARE TIMEOUT OCCURRED ON THIS DRIVE 

+4 8(4) SOFTWARE TIMEOUT OCCURRED ON ANOTHER DRIVE 
i 7 DONE 

4 6(2) ERROR OCCURRED DURING AN I/0 OPERATION 

of 5(2) ERROR OCCURRED DURING AN OPERATION 

i 


ooo 
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3(2) DRIVE ERROR OCCURRED THAT CAUSED AN 
AUTOMATIC ‘RECALIBRATE'’ SEQUENCE 

2 PORT REQUEST 4 AE THE DRIVER REQUESTED 
THE DRIVE BUT OPPOSITE T DID NOT 
RELEASE THE DRIVE WITHIN 50 SECONDS. 

1 NON-EXISTENT DRIVE REQUESTED. USER MADE 
A REQUEST FOR A NON-EXISTENT DRIVE. 

(1) => REQUEST WASN'T PUT IN QUEUE. (RH/RM 
REGISTERS WERE NOT SAVED) 

(2) => REQUEST QUEUE HAS BEEN EMPTIED. THE DRIVER 


— A "DRIVE CLEAR’* TO THE DRIVE. 


L_RH/RM REGISTERS ARE SAVED 


NOTE: AL 
AS PER DPB+14 BEFORE THE ‘DRIVE CLEAR'’. 


(3) => REQUEST QUEUE HAS BEEN EMPTIED. THE 
DRIVER ISSUED A MASSBUS INIT. ALL 
RH/RM REGISTERS FOR THE DRIVE WERE 
SAVED AS PER DPB+14 BEFORE THE INIT. 


(4) => ‘ RECALIBRATE’* SHOULD BE iSSUED 
BEF ORE ANY OTHER COMMAND. 


13.8 ERROR CALLS MADE BY THE DRIVER. 


THERE ARE A FEW ERRORS THAT CAN OCCUR THAT CAN NOT BE INDICATED IN A DPB. 
WHEN THIS TYPE OF Rowe IS DETECTED BY THE DRIVER iy WILL MAKE 
HE FORM ‘ERR 


AN ERROR CALL OF T 


OR N’’, WHERE ° 
NUMBER AND THE ERROR WILL BE AN EMT INSTRUCTION. 


N TYPE 

1 RH70 INTERRUPT 
OCCURRED (RHAS=0) 

2 UNEXPECTED ATTENTION 
OCCURRED 

3 MASSBUS PARITY 
ERROR (MCPE=1) 

4 MASSBUS PARITY 
ERROR (PAR=1) 


‘ IS THE ERROR 


DATA AVAILABLE 


*R4= RMCS1°"S ADDRESS 


R1= DRIVE NUMBER 
ATA BIT 

*R4= RMCS1°S ADDRESS 
(RMAS 


RMERRS +6=RMMR2 


RD.ADR= ADDRESS OF REG. READ 
RD.WRD= WORD READ 


WRT.AD= ADDRESS OF REG. WRITTEN 
WORD WRITTEN 
RD.WRD= WORD READ BACK 


ee eee ew ee ee ee 


SEQ 0025 





| N 2 
CZRMTAO RMOS/3/2 DR CMPT TST MACRO VO3.01 11-APR~80 14:43:18 PAGE 3-22 


SEQ .0026 
1255 
1256 5 ADDRESS PLUG CHANGE R1= DRIVE NUMBER 
1257 3I1T SET C'OPE’ ERROR) R3= ATA BIT 
1258 *R4= RMCS1'S ADDRESS 
1259 R5= (RMAS) 
1260 RMERRS = 
1261 RMERRS+2=RMER1 
1262 RMERRS +4=RMER2 
ors RMERRS +6=RMMR2 
‘Sea * THIS IS THE ACTUAL UNIBUS ADDRESS (176700) 


ee CE LE LEE LE 
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;PROGRAM REVISION #001 


TITLE sect ns DR CMPT TST 
:*COPYRIGHT (C) 1980 


>*DIGITAL EQUIPMENT CORP. 
s SMAYNARD . MASS. 01754 


: SPROGRAM BY MIKE LEAVITT 


THIS PROGRAM WAS ASSEMBLED LiING THE PDP=-11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC=11=DZQAC=C4) , ?¥80. 


* SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH 


am 
- nen epee ea eRe RR SF 


NOOO MWS 


HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 
INHIBIT TRACE TRAP 
INHIBIT ITERATIONS 

BELL ON ERROR 

LOOP ON ERROR 

LOOP ON TEST IN SWR<7:0> 
TYPE THE BAD SECTOR FILE 


~SBTTL BASIC DEFINITIONS 


>* INITIAL 

STACK = 110 

ERROR = EMT 
SCOPE = JOT 

> *MISCELL 

HT = 11 

LF = 12 

CR = 15 
CRLF = 200 

PS = 177776 

PSW=PS 

STKLMT = 177774 

PIRQ = 177772 
SWR = 177570 

DDISP = 177570 
; *GENERAL 

RO = 2% 

R1 = 21 

R2 = 22 

R3 = 25 

R4 = %4 

R5 = %5 

R6 = %6 

R7 = Z7 

SP = %6 

PC = <7 


> OF THE STACK POINTER *** 1100 *** 


; BASIC DEFINITION OF ERROR CALL 
;sBASIC DEFINITION OF SCOPE CALL 


ANEOUS DEFINITIONS 


;:CODE FOR wo wre’y TAB 

;:CODE FOR LINE FEED 

;;CODE FOR CARRIAGE RETURN 

;;CODE FOR CARRIAGE RETURN-LINE FEED 
: sPROCESSOR STATUS WORD 


+3 STACK LIMIT REGISTER 

ROGRAM INTERRUPT REQUEST REGISTER 
;;HARDWARE SWITCH REGISTER 
; sHARDWARE DISPLAY REGISTER 


PURPOSE REGISTER Peeeat deel 
0 RAL R 


:GE 
: ISTACK POINTER 
ROGRAM COUNTER 


SEQ 0027 
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ee DEF INITIONS 


PRO ;sPRIORITY LEVEL 0 
PR1 = 40 ;;PRIORITY LEVEL 1 
PR = ;sPRIORITY LEVEL ¢ 
PR = 140 :sPRIORITY LEVEL 
PR4 = ;sPRIORITY LEVEL 4 
PRS = 240 ;sPRIORITY LEVEL 5 
PR6 = 300 ;sPRIORITY LEVEL 6 
PR7 = 340 ;sPRIORITY LEVEL 7 
;*' ‘SWITCH REGISTER’ SWITCH DEFINITIONS 
Sw15 = 100000 
SW14 = 40000 
SwW13 = 20000 
SW12 = 10000 
SW11 = 4000 
SW10 = 2000 
SWO9 = 1000 
Sw08 = 400 
Sw07 = 200 
SWO06 = 100 
Sw05 = 40 
SW04 = 20 
SwO3 = 10 
Sw02 = 4 
Sw01 =e 
SWwO00 = 1 
SWI=SWO9 
SW8=SW08 
SW7=SW07 
SW6=S 
SW5=SwWO05 
SW3=SWO3 
SW2=SWO02 
SW1=SWO1 
SWO=S 
;*DATA BIT DEFINITIONS (BITOO TO BIT15) 
BIT15 = 100000 
BIT14 = 40000 
BIT13 = 20000 
BIT12 = 10000 
BIT11 = 4000 
BIT10 = 2000 
BITO9 = 1000 
BIT08 = 400 
BITO7 = 200 

IT06 == 100 
BITO5 = 40 

IT04 == 20 
BIT03 = 10 
BITO2 =4 
BIT01 = 2 
BITOO = 1 
BIT9=B1T09 
B1T8=81 108 





SEQ 0028 


_ enter carrera ene nea —_—_—_—_—_——— - rtereeen eee 
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BIT7=B1T07 
BIT6=B1T06 
BIT5=81TO5 
4=BIT 
BIT3=81T03 
BIT2=B1T02 
BIT1=B8]T01 
BI TO0=81T00 
;*BASIC ‘'CPU'’ TRAP VECTOR ADDRESSES 
ERRVEC = 4 °T OUT AND OTHER ERRORS 
RESVEC = 10 : [RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC = 14 7:''T’ BIT 
TRTIVEC = 14 3; TRACE TRAP 
BPTVEC = 14 3 ;BREAKPOINT TRAP (BPT) 
TOTVEC = 20 ; s INPUT/OUTPUT TRAP (JOT) **SCOPE** 
PWRVEC = 24 ss R FAIL 
EMTVEC = 30 + s EMULATOR TRAP (EMT) **ERROR«* 
TRAPVEC = 34 See | TRAP 
TKVEC = 60 “: TTY KEYBOARD VECTOR 
TPVEC = 64 :: TTY PRINTER VECTOR 
PIRQVEC = 240 3:PROGRAM INTERRUPT REQUEST VECTOR 
SRTTL RM REGISTERS 
; INDEX OF STATUS AND REGISTER WORDS RELATIVE TO FMTDPB 
STATUS = 16 
SRMCS1 = $TATUS+2 
SRMWC = $SRMCS1+2 
SRMBA = S$RMWC+2 
SRMDA = $RMBA+2 
SRMCS2 = SRMDA+ 
SRMDS = SRMCS2+2 
SRMER1 = S$RMDS+2 
SRMAS = S$RMER1+2 
SRMLA = $RMAS+2 
SRMDB == SRMLA+2 
SRYPR1 = SRMDB+2 
SRMDT = $RMAR1+2 
SRMSN = $SRMDT+2 
SRMOF = $RMSN+2 
SRMDC = $RMOF+2 
SRMHR = S$RMDC+2 
SRPPRZ2 = SRMHR+2 
SRMERZ = S$RMMAR2Z+2 
SRMEC1 = $SRMER2Z+2 
SRMEC2 = SRMEC1+2 
-SBTTL RM DRIVER COMMANDS 
= 101 ;NO OPERATION 
SEEK = 105 ; 
RECAL = 107 ;RECALIBRATE 
DRVCLR = 111 ;DRIVE CLEAR 
RELSE = 113 ;RELEASE 
OFFSET = 115 : OFFSET 


ee ee eee ee 


SEQ 0029 


re 


ne ee eee 
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oe ee ee 


C RM DRIVER C SEQ 0030 
103 000117 RTC = 117 ;RETURN TO CENTER LINE 
104 000121 READIN = 121 :READ IN PRESET 
105 000123 Ck = 123 PACK ACKNOWLEDGE 
106 000131 SEARCH = 131 ARCH 
107 000141 GETREG = 141 “GET REGISTERS 
108 000143 SETFMT = 163 "SET FORMAT (®& ECI OR HCI) 
109 000145 SELDRV = 145 “SELECT DRIVE 
110 000151 WCKD = 151 “WRITE CHECK DATA 
111 000153 WCKHD = 153 {WRITE CHECK HEADER & DATA 
112 000161 WRTIDAT = 161 “WRITE DAT 
113 000163 WRTHD = 163 “WRITE NEADER & DATA 
114 000171 RDDAT = 171 “READ DATA 
115 000173 RDHD = 173 “READ HEADER & DATA 
117 176700 ABASE = 176700 
118 000254 AVECT1 = 256 
119 
121 
122 _SBTTL TRAP CATCHER 
000000 =0 
:*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ‘'.42.HALT" 
> *SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
ie :*LOCATION Q CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
000174 000000 DISPREG: One 0 :; SOFTWARE DISPLAY REGISTER 
000176 000000 SWREG: WORD 0 =: SOFTWARE SWITCH REGISTER 
.SBTTL STARTING ADDRESS(ES) 
193 000200 000137 005502 JMP QASTART :; JUMP TO STARTING ADDRESS OF PROGRAM 
124 000204 000137 005520 JMP aASTARTI CHANGE THE RH/RM UNIBUS ADDRESS 
126 000210 000137 005536 MP aASTART2 :SECOND PASS STARTING ADDRESS 
128 
129 .SBTTL ACT11 HOOKS 
: SEERA AREER 
“HOOKS REQUIRED BY ACT11 
000214 SSvPC=. :SAVE PC 
000046 025506 SENDAD :21)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
000052 04 “WORD 40000 ;:2)SET LOC. 332 TO 40000 
be 000214 " =$SVPC :: RESTORE P 
131 001100 .=1100 
132 “SBTTL APT PARAMETER BLOCK 
J TEAR EREEEAEAAEAERAAERERAEAEEEEEEEEEREEEKEEREEEEE 
SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
[EAA RAEEEARERERAERARARAERAREEAEEREKREREREREEEEEEEE 
001100 .$X=, : SAVE CURRENT LOCATION 
000024 "=26 >SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 300 * FOR APT START UP 


—— 
EA 


000044 


BEE EEE 
2333835 


000044 
001100 
001100 


=44 :sPOINT TO APT INDIRECT ADDRESS PNTR. 
SAPTHDR :sPOINT TO APT HEADER BLOCK 
=.$X  ;;RESET LOCATION COUNTER 
[RRR RARARERER RA RR ERR RR ER RA AERA REE REE Ee eee ee eee eee eee 
SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


SAPTHD : 

SHIBTS: .WORD 0 TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMBADR: .WORD S$MAIL :Z ADDRESS OF APT MAILBOX (BITS 0-15) 

STSTM: .WORD 500. TEST 

SPASTM: .WORD 500. o: PUN tion IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

SUNITM: .WORD 500. ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 
WORD $ETEND-SMAIL/2 ; LENGTH MAILBOX~E TABLE (WORDS) 


UN TIM OF LONGEST 


TAB.XY=._ 


eepinet os pete cs 
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COMMON TAGS 


.SBTTL COMMON TAGS 


5 RARER EAA EE 


SRTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM, 


0 


WWWPNNnNAe Se 
SORNONARE 


Dc ced ced ed ceed eed ed od nd od 
ENS 


seeeees 


001114 


SCMTAG: 


SAUTOB: . 


~=TAB.XY 


ASCIZ 


OOCCCOCO0O0O $$ DIOdO0000O 


A 
na 44 
a0 
v 


3: START OF 
+ CONTAINS 


SEQ 0032 


COMMON TAGS 


THE TEST NUMBER 

ERROR FLAG 

SUBTEST ITERATION COUNT 

SCOPE LOOP ADDRESS 

SCOPE RETURN FOR ERRORS 

TOTAL ERRORS DETECTED 

ITEM CONTROL BYTE 
ERRORS PER 


TEST 
;; CONTAINS PC OF LAST ERROR INSTRUCTION 
;sCONTAINS ADDRESS OF ‘GOOD’ DATA 

; = CONTAINS ADDRESS ioe "BAD" DATA 

36 *GOOD* DAT 

:sCONTAINS ‘BAD’ DAT A. 

: sRESERVED--NOT TO BE USED 


; AUTOMATIC MODE INDICATOR 
3; INTERRUPT MODE INDICATOR 


; ADDRESS OF SWITCH REGISTER 
;;ADDRESS OF DISPLAY REGISTER 
;z TTY KBD STATUS 
: 7 TTY KBD BUFFER 
:zTTY PRINTER STATUS REG. ADDRESS 
oe tox PRINTER BUFFER REG. ADDRESS 
; CONTAINS NULL CHARACTER FOR FILLS 
sCONTAINS # OF F ge CHARACTERS sore 
: INSERT FILL CHARS. AFTER A ‘LINE FEED" 
>" "TERMINAL AVAILABLE’ ’ FLAG (BI T<07>=0=YES) 
; 3USER DEF INED 
7;2MAX. NUMBER OF ITERATIONS 
+ s ESCAPE ON ERROR ADDRESS 
>CODE FOR BELL 


SEAR EKEEEREKEE 


* SBT TL APT MAILBOX~ETABLE 


FF ARERR 


EVEN 


T MAILBOX 
t MESSAGE TYPE CODE 
:;FATAL ERROR NUMBER 
:: TEST NUMBER 


> PASS COUNT 

yey COUNT 
/O UNIT NUMBER 

; MESSAGE ADDRESS 


g MAILBOX~E TAB 


CZRMTAO ated oH CMPT TST 


1 


AMAMS 1 
AMTYP1 
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+ sMESSAGE LENGTH 


I DE B 
; APT Swi TCH REGISTER 
ee oY CHES 
YPE, fons Yo 

BITS 15115 =CPU_ TYPE 

A = ao 4G MAS my € 11/20=03,11/40=04,11/45=05 

/70=06 ,PDQ=07,0=10 

BIT 10= =REAL TIME CL LOCK 
BIT 9=FLOATING POINT PROCESSOR 
BIT 8=MEMORY MANAGEMENT 
+ HIGH ADDRESS, * BYTE 


- TYPE ,BLKA 
MEM.TYPE BYTE <= CMT GH BYTE) 


HIGH ADDRESS,BL 
MEM.LAST ADDR. - 1 BYTES,THIS WORD AND LOW OF ‘‘TYPE'* ABOVE 
;sHIGH ADDRESS,M.S. BYTE 
+ 2MEM. TYPE ,BLKA#2 
>MEM.LAST ADDRESS ,BLKA2 
> HIGH ADDRESS,M.S.BYTE 
: ]MEM. TYPE ,BLKA3 
:sMEM.LAST ADDRESS ,BLKA#3 
+ :HIGH rn cs te -S.BYTE 


ee KA 

MEM. LAST “ADDRESS ,BLKA4 
; 3 INTERRUPT VECTOR#1 ,BUS PRIORITYA#1 

; INTERRUPT VECTOR#2BUS PRIORITY#2 
;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
;;DEVICE MAP 
;; CONTROLLER DESCRIPTION WORDA1 
;; CONTROLLER DESCRIPTION WORDA2 


em re ~~ ee ee a 


SEQ 0035 


ee 


ee ee a ee ees 


ee. 
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0 .SBTTL USER DEFINED TAGS 

001276 176700 SRMADR: .WORD 176700 ;FIRST ADDRESS OF RH/RM REGISTERS 
001300 254 SRMVEC: .WORD 254 : VECTOR ADDRESS 
001302 172540 $LKCSR: .WORD 172540 ;:ADDR OF KW11-P STATUS REGISTER 
001304 172542 $LKCSB: .WORD 172542 :ADDR OF KW11-P COUNTER BUFFER 
001306 000104 SLPVEC: .WORD 104 :ADDR OF KW11-P VECTOR 
001310 177546 $LKS: .WORD 177546 ;ADDR OF KW11-L STATUS REGISTER 
001312 000100 SLLVEC: .WORD 100 ;ADDR OF KW11-L VECTOR 
001314 177777 PCLOCK: .WORD =1 ; 0° IF -P IS x SYSTEM 
001316 177777 CLKFLG: .WORD <1 >'O"' IF A CLOCK_IS AVAILABLE 
001320 -WORD 74 274 (8) IF 60 HZ SY STEM: a. (8) IF 50 HZ SYSTEM 
0013c2 STATIN: .WORD 0Q ;"TYPE STATISTICS’ INDICAT 
001324 . WORD sENTRY TO THE TABLE D 

001224 DRIVE = S$UNIT sDRIVE # STORAGE 
001326 ATTN -WORD 0Q sATTN REG STORAGE: 

330 000000 UNIT WORD 0 sDRIVE # STORAGE FOR PRINTOUT 
;RETRY COUNT IN THE UPPER BYTE 
001332 000009 LSTAD: .WORD QO STORE LAST MEMORY ADDRESS HERE 
13 000000 CHGADR: .WORD 0 * CHANGE RH/RM UNIBUS ADDRESS FLAG 

001336 000000 CFLAG: .WORD 0Q : "CONTROL C’ FLAG 
001340 000000 TSTNM: .WORD 0 : TEST NUMBER FOR PRINT AND SCORE RT. 
001342 000000 BADSEC: .WORD 0 ;BAD SECTOR/TRACK FLAG 
001344 000000 -WORD OQ sHOUR_ COUNT STORED HERE (MAXIMUM - 999.) 

000000 MINUTE: .WORD 0 sMINUTE'S COUNT STORED HERE 
001350 000000 SECOND: .WORD 0 sSECOND'S COUNT STORED HERE 
001352 000000 SIXTEE: .WORD 0 TIMER ROUTINE COUNTER (FOR ONE SECOND) 
001354 000000 CMCNT: .WORD 0 :ZONE COUNT 
001356 000000 CMCYL: .WORD 0 :CYLINDER ADDRESS 

000000 STARSC: .WORD 0 STARTING SECTOR (FOR TEST 6,8) 
001362 000000 CMSEC: .WORD 0 :DALTA CYLINDER COUNT 
001364 000000 CMTRK: .WORD QO ; TRACK ADDRESS 

000000 -WORD 0 :NEW LINE FLAG AND COLUMN CTR | 
001370 000037 SECLMT: .WORD 31. ;SECTOR ADDRESS LIMIT 
001372 000000 TRKLMT: .WORD 0 ; TRACK ADDRESS LIMIT, RMO3/2 = 4. AND RMOS = 18. 
001374 001466 CYLIMT: .WORD 822. sCYLINDER ADDRESS LIMIT 
001376 000000 FAULT: .WORD 0 :=1, IF ALL DRIVES NOT COMPATIBLE 

00 000000 RSTART: .WORD 0 ; CONTAINS PROGRAM RESTARTING ADDRESS 

001402 000000 DTYP WORD 0 sCONTAINS DRIVE TYPE CODE OF DRIVE ta TESTED 
001404 000000 XXDP -WORD OQ 


;THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 
; THE PROGRAM WAS LOAD 

;*XXDP* DEVICE CODE THE RMOS/ 

-SBTTL TABLES, CONSTANTS, AND VARIABLE LOCATIONS 

; TABLE D 


> TABLE LISTED BELOW SPECIFIES THE SECTORS TO BE WRITTEN 
:BY A LOGICAL DRIVE. ACH LOGICAL DRIVE WRITES TWO SECTORS ON ONE 


: CYLINDER 16 CYLINDERS IN ONE BLOCK, 2 BLOCKS IN ONE WRITE-CURRENT 
: ZONE AND 7 CURRENT ZONES IN A PACK. 
000 017 015 LOGO: .BYTE 0, 15.,13.,10. 651,112 040120 013049 -14.-2,5.7.8. 
001426 001 000 016 LOG: ‘BYTE 0.16. 0llecl ole leced, 15-.4,10,.15..3,.6,8..9. 
001446 002 001 017 LOG2: .BYTE 5918: 12. .8.,3-13.26,14.45,11.,0,4,7,9._10. 
001466 003 002 000 LOG3: .BYTE 3.2.0,13.,9..4.14..7 15,0 .1¢-44-5.8- 610.011. 
004 003 001 LOG4 BYTE 4,3,1,14.,10.,5,15.,8.,0.7.13.,2,6.9..11..12. 
001526 005 004 002 LOGS BYTE 5,4,2,15.,11..6.0,9.,1.8.,14+.%.7,10..12..13. 





ED. THE HIGH BYTE CONTAINS THE 


SEQ 0034 


3 


J 





SEQ 0035 


oO 
eee HOP ys 
mMwTF « ~ * © © & & 


=1 

1 

10 
6. 
1. 
1 
1 
4 
5 


E 6 
9 
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:SCORE BOARD TABLES 
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TABLES, CONSTANTS, AND VARIABLE LOCATIONS SEQ 0037 

004372 000 000 SELF6: .BYTE 0,0 s TRACK 6 
004374 000 000 SELF7: .BYTE 0,0 s TRACK 7 
004376 000 000 SELF8: .BYTE 0,0 ; TRACK 8 
004400 000 000 SELF9: .BYTE 0,0 ; TRACK 9 
004402 000 000 SELF10: .BYTE 0,0 3; TRACK 10 
0044 000 000 SELF11: .BYTE 0,0 ; TRACK 11 
0044 000 000 SELF12: .BYTE 0,0 ; TRACK 12 
004410 000 000 SELF13: .BYTE 0,0 s TRACK 13 
004412 000 000 SELF14: .BYTE 0,0 s TRACK 14 
004414 000 000 SELF15: .BYTE 0,0 ; TRACK 15 
004416 000 000 F16: YTE 0,0 ; TRACK 16 
004420 000 000 SELF17: .BYTE 0,0 s TRACK 17 
004422 000 000 SELF18: .BYTE 0,0 ; TRACK 18 

; THE START LOGICAL DRIVE # TO WRITE ON EACH CYLINDER OF A BLOCK 

16 CYLINDERS,2 BLOCKS, TOTAL 32 CYLINDERS IN ONE ZONE 
004424 000 001 O03 INDST: .BYTE 0,1,3,6,10.,15.,5,120 54513007 ole l4eolleo9e 8. 
004444 BLKADR: 
004444 004622 -WORD DRIVO sADDRESS OF THE PARAMETER BLOCK FOR DRIVE O 
004446 004644 -WORD ODRIV1 “ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 1 
004450 WORD DRIV2 sADDRESS OF THE PARAMETER BLOCK FOR DRIVE 2 
004452 004710 -WORD DRIV3 sADDRESS OF THE PARAMETER BLOCK FOR DRIVE 3 
004454 -WORD ODRIV4 ;ADDRESS OF THE PARAMETER BLOCK FOR 4 

4 004754 -WORD ODRIVS ;ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 5 
004460 004776 WORD ODRIV6 sADDRESS OF THE PARAMETER BLOCK FOR DRIVE 6 
004462 005020 -WORD ODRIV7 sADDRESS OF THE PARAMETER BLOCK FOR DRIVE 7 
004464 -WORD DRIV10 sADDRESS OF THE PARAMETER BLOCK FOR DRIVE 10 
004466 00 -WORD ODRIV11 sADDRESS OF THE PARAMETER BLOCK FOR DRIVE 11 
004470 -WORD DRIV12 ; ESS OF THE PARAMETER BLOCK FOR DRIVE 12 
004472 005130 WORD DRIV13 sADDRESS OF THE PARAMETER BLOCK FOR DRIVE 13 
004474 005152 -WORD DRIV14 sADDRESS OF THE PARAMETER BLOCK FOR D 14 
004476 005174 -WORD DRIV15 ;ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 15 
500 005216 -WORD DRIV16 sADDRESS OF THE PARAMETER BLOCK FOR DRIVE 16 
004502 005240 -WORD ODRIV17 sADDRESS OF THE PARAMETER BLOCK FOR DRIVE 17 
004504 000000 OFFCOD: .WORD 0 sOFFSET CODE TABLE 
: NUMBER FOR NEGATIVE OFFSET (DIR = OUT) 
;NUMBER FOR POSITIVE OFFSET (DIR = IN) 

;DATA/PARAMETER BLOCK 
004506 000 FMTDPB: .BYTE 0 ;DRIVER PARAMETER BLOCK, DRIVE &# 
004507 000 BYTE QO ;OFFSET VALUE OR FMT16, HCI OR EC] 
004510 000 BYTE 0O 3; COMMAND CODE 
004511 000 BYTE QO ;PSEL, A16 AND A17 
004512 000000 WORD OQ COUNT (NEG) 
004514 043032 -WORD BUFFER “BUFFER ADDRESS 
004516 000 BYTE QO :SECTOR ADDRESS 
004517 000 BYTE OQ : TRACK ADDRESS 
004520 000000 -WORD 0O :CYLINDER ADDRESS 
004522 004526 -WORD RM.REG ;ADDRESS TO SAVE ALL RH/RM REG'S 
004524 000000 WORD 0 *STATU US WORD 
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sGENERAL PURPOSE PARAMETER BLOCK 
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AND VARIABLE LOCATIONS 


RM.REG: 


; 2 
;RMEC1 
;RMEC2 


sDRIVER PARAMETER BLOCK, DRIVE # 
; OF FSET “SS OR FMT16, HCI OR ECI 


; COMMAND CODE 
;PSEL, ANS. AND A17 


T (NEG) 


“BUFFER ADDRESS 


STATU 


;BUFFER 


; DRESS 
;ADDRESS TO SAVE ALL RH/RM REG'S 
US WORD 


sHISTORY FILE FOR 16. LOGICAL DRIVES:(0-17 OCTAL) 
Wan fy 


GENDPB: .BYTE 0 
BYTE Q 
-BYTE 0O 
-WORD <2 
-WORD (CY 
BYTE 0O 
BYTE 0O 
-WORD QO 
-WORD RM. 
-WORD OQ 
CYLNDR: .BLKW 2 
SFMT = ] 
SCOMND = $FMT+1 
SPSEL = $FMT+2 
SWRDM = S$FMT+3 
$BUF = SFMT+5 
SSEC = SFMT+7 
STRK = $FMT+10 
SCYL = $FMT+11 
SSYSNM = SFMT+13 
SPHYDR = SFMT+14 
$GAP = $FMT+15 
SEMTAB = $GAP+4 
DRIVO: .BYTE 780,0 
BL EMTAB-$C 
DRIV1 -BYTE 781,0 
-BLKB $EMTAB-$C 
DRIV2: .BYTE 78&2,0 


: COMMAND CODE | 

; PROT SELECT AND A16,A17 
COUNT 

“BUFFER ADDRESS 


: PHYSICAL DRIVE CODE (ASCII ) 
;LEFT TWO NULL BYTES 
;END OF HISTORY TABLE 


sHISTORY BLOCK OF LOGICAL DRIVE 0 
sHISTORY BLOCK OF LOGICAL DRIVE 1 
sHISTORY BLOCK OF LOGICAL DRIVE 2 





SEQ 0038 


004710 
004732 
004754 
004776 
005020 
005042 
005064 
005106 
005150 
005152 
005174 
005216 
005240 


003 


146666 
115555 
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TABLES, CONSTANTS, 


000 
000 


000 





.BLKB 
DRIV3: 
-BLKB 
DRIV4: 


.BLKB 
Brive: 
-BLKB 
DRIV6: 
-BLKB 
DRIV?: 
-BLKB 


DRIV10: . 
.BLKB 
DRIV11: 

oO BLKB 
DRIVi2: . 
-BLKB 

DRIV13: 
-BLKB SEM 
DRIV14: 
DRIV15: 
-BLKB SEM 
DRIV16: 
-BLKB 
DRIVI7: 


-BLKB 


“vic eo 


SEMTAB-$COMND 


s STANDARD DATA PATTERN 


STNDAT : 


PSEUDO: 


- WORD 


666 
115555 


052336 
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;HISTORY BLOCK 
sHISTORY BLOCK 
sHISTORY BLOCK 
sHISTORY BLOCK 
sHISTORY BLOCK 
sHISTORY BLOCK 
;HISTORY BLOCK 
sHISTORY BLOCK 
sHISTORY BLOCK 
sHISTORY BLOCK 
sHISTORY BLOCK 
sHISTORY BLOCK 
sHISTORY BLOCK 


OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 


LOGICAL DRIVE 
LOGICAL DRIVE 
LOGICAL DRIVE 
LOGICAL DRIVE 
LOGICAL DRIVE 
LOGICAL DRIVE 
LOGICAL DRIVE 
LOGICAL DRIVE 
LOGICAL DRIVE 
LOGICAL DRIVE 
LOGICAL DRIVE 
LOGICAL DRIVE 
LOGICAL DRIVE 


rm a ee ee  - 
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4 
5 
6 
7 
10 


11 


16 
17 


SEQ 0059 
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TABLES, CONSTANTS, AND VARIABLE LOCATIONS SEQ 0040 
6 017310 -WORD 017310 
005350 011347 -WORD 011347 
005352 102367 «WORD 102367 
005354 152567 -WORD 152567 
005356 001246 -WORD 001246 
160073 -WORD 160073 
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ERROR POINTER TABLE 


-SBTTL ERROR POINTER TABLE 


0 


ee ee ed ed eed eed ed 
CONAUS WYO OONOAUF Wh 


0 
: 
ras 
R 


N 
— 
8 
a] 
kK 
— 
oO 


005432 
005434 
005436 
2 005440 


ie te tah 
—OoOwo 


;*THIS Cal iene THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
; * THE TION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE aoeee * PERTINENT. 


IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (S$ERR 


EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


;zPOINTS TO THE ERROR MESSAGE 
;:;POINTS TO THE DATA HEADER 
:;PGINTS TO THE DATA 
;z:POINTS TO THE DATA FORMAT 


:RH70 INTERRUPT OCCURRED (RMAS = 0) 


s UNEXPECTED ATTENTION OCCURRED 


sMASSBUS PARITY ERROR (MCPE=1) 


;MASSBUS PARITY ERROR (PAR=1) 


sADDRESS PLUG BIT CHANGED 


:RH DIDN'T RESPOND TO ADDRESSING 


a —_ -— — ———— eee ee 


SEQ 0041 


i 7 
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RROR POINTER SEQ 0042 
43 | 
* 3* ERRORS 7 = 12 ARE PART OF THE ‘DUMP’ SUBROUTINE 
47 
48 005442 000000 ' 0 
49 005444 040765 DH7 
50 005446 041262 DT7 
51 005450 000000 0 
2 ERROR 10 
55 005452 000000 0 
S56 005454 041036 DH10 
S7 005456 041276 DT10 
28 005460 0 
69 ERROR 11 
62 005462 000000 0 
63 005464 041107 DH11 
64 005466 041312 DT11 
7 005470 000000 0 
67 RR 
7 ERROR 12 
69 005472 0 
70 005474 041160 DH12 
71 005476 041326 DT12 

2 005500 0 


| 46 ERROR 7 


eee ee we eee ie ws ee ee ae 


i et 


OW ONAUESWN OO OONAUSWI =) 


S888 85 


————_——— 
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012737 
012737 
000414 


012737 
012737 
000405 


012737 
005037 


737 


013746 


023552 
000340 


005756 
005746 
000006 
000010 


000012 
023560 
005774 
006002 


000004 
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SEQ 00435 


~SBTTL START OF PROGRAM 


RSTART ;SETUP RESTART ADDRESS 


001400 START: MOV 
001334 MOV #00, CHGADR =200 START ADDRESS FLAG 
001400 START1: MOV #. .RSTART :SETUP RESTART ADDRESS 
001334 MOV #~1, CHGADR 7206 START ADDRESS FLAG 
START3 
001400 START2: MOV #. .RSTART :SETUP RESTART ADDRESS 
CLR CHGADR 7210 START ADDRESS FLAG 
START3: NOP 
INC #0 :TTY LOOP, WAIT FOR INCREMENT 
BNE - “OF WORD 
RESET =CLEAR THE WORLD 
.SBTTL INITIALIZE THE COMMON TAGS 
:: CLEAR THE COMMON TAGS ($CMTAG) AREA 
MOV #SCMTAG,R6 


:sFIRST LOCATION TO BE CLEARED 
SCONE? MEMORY LOCATION 


:LOOP “BACK K IF NO 
ACK, SP SETUP THE STACK POINTER 
ss INITIALIZE A FEW VECTORS 


000020 #SSCOPE ,a# IOTVEC of ove VECTOR FOR SCOPE ROUTINE 
000022 MOV #340, a#IOTVEC+2 ::LEVEL 7 
000030 MOV #SERROR , AMEMTVEC ‘EMT VECTOR FOR ERROR ROUTINE 
000032 MOV #340, aWEMTVEC+2 ;:LEVEL 
000034 MOV #STRAP , AA TRAPVEC : TRAP VECTOR FOR TRAP CALLS 
000036 MOV #340, a#TRAPVEC+2;LEVEL 7 
000024 MOV #SPWRDN, a#PWRVE * POWER FAILURE VECTOR 

26 MOV #340, aMPWRVEC+2 ;:LEVEL 7 
023446 MOV SENDCT,SEOPCT  ::SETUP END-OF-PROGRAM COUNTER 

CLR STIMES sINITIALIZE NUMBER OF ITERATIONS 


CLR took 


ON ERROR ADDRESS 
MOVB ERMAX > ALLOW TEST 
i: INITIALIZE THE” “eee TRAP VECTOR. THEN LOAD 


PER 
LOCATION "‘SRTRN'’, IN 


E “END-OF~PASS'’ (SEOP) ROUTINE, WITH A ‘RTI'' OR 'RTT"’. 
000014 MOV WSRIRN, @A#TBITVEC ; :SET Me BIT VECTOR TO $RTRN 
000016 MOV #340, QFTBITVEC+2 : LEVEL 
023552 MOV #RTI,SRTR tt SRTRN TO A RTI 
10 MOV #65$, SARESVEC ST TRY To DO A RTT 

CLR -(SP5J 33 PS 

MOV #64$,-(SP) 3 AND Pc 

RTT ::TRY THE 


RTT 
:;RTT IS LEGAL--SET $RTRN TO A RTT 


#10,SP T ILLEGAL--CLEAN OFF THE STACK 
#RESVEC 2, vamresvit : RESTORE TRAP CATCHER 


023552 64$: MOV 


BR 
65$: ADD 
000010 66$: MOV 


A#RTT,SRTRN 
66$ 


CLR CLEAR ‘'T’* BIT SWITCH 
001122 MOV oper :PINITIALIZE THE LOOP ADDRESS FOR SCOPE 
001124 MOV , SLPERR ; SETUP THE ERROR LOOP ADDRESS 


:-SIZE FOR A HARD DUARE SWITCH REGISTER. IF NOT FOUND OR IT 
ssEQUAL TO A ‘1'', SETUP FOR A SOFTWARE SWITCH REGISTER. 
MOV ::SAVE ERROR VECTOR 


@#ERRVEC,~(SP) 


hm | 


ete SUNN ee ir OS 
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INITIALIZE THE COMMON TAGS 


AE te la 


012637 


005037 
132737 
001403 
012737 


000403 
112737 
000427 


023506 


000042 


000001 
000176 


001150 


000041 
001404 
001404 


67$: 
68$: 
69$: 


70$: 
-SBTTL 


MOV #67$,QMERRVEC ;;SET UP ERROR VECTOR 


MOV #DSWR, SWR ;sSETUP FOR A HARDWARE SWICH REGISTER 
MOV #DDISP,DISPLAY ::AND A HARDWARE gt REGISTER 

CMP #-1,aSWR :sTRY TO REFERENCE HARDWARE SWR 

BNE 69S" ; BRANCH IF NO TIMEOUT TRAP OCCURRED 


;;AND THE HARDWARE SWR IS NOT = <1 
BR 68$ ; BRANCH IF NO TIMEOUT 
#68$, (SP) SISET UP FOR TRAP RETURN 


MOV ASWREG , SWR :sPOINT TO SOFTWARE SWR 
MOV #DISPREG,DISPLAY 
MOV (SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 


CLR SPASS cite PASS COUNT 
BITB HAPTSIZE,SENVM TEST USER SIZE “eat APT 


BEQ 70$ ;YES,USE NON-APT SWITCH 
MOV ASSWREG, SWR INO, USE APT SWITCH REGISTER 
TYPE PROGRAM NAME 
:: TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
INC 4-1 :sFIRST TIME? 
BNE 718 , 3 CH IF NO 
CMP #SENDAD , #42 ;sACT=-11? 
BEQ 71$ CH IF YES 
TYP YPE ASCIZ STRING 


. SBTTL 


(3$: 
74$: 


-:72$: 
71$: 


E .72$ 
GET VALUE FOR SOFTWARE sich REGISTER 
TST 42 ;sARE WE RUNNING UNDER XXDP/ACT? 
: ;BRANCH IF YES 


BNE 73$ YE 

CMPB SENV,A1 WE ery UNDER APT? 
BEQ 73$ :;BRANCH IF YES 

CMP SWR ,ASWREG ; 3 SOF TWARE SWITCH REG SELECTED? 
BNE 74$ CH IF NO 

GTSWR ::GET SOFT-SWR SETTINGS 


BR 74$ 
MOVB #1, $AUTOB :sSET AUTO-MODE INDICATOR 


BR 71$ >;GET OVER THE ASCIZ 
-ASCIZ <CRLF>@CZRMTAO - RMOS/3/2 DRIVE COMPATIBILITY TSTa<CRLF> 


; THE owe FINDS OUT THE PROGRAM CONTROL MODE: 


PAPER T 


-76$: 
$: 


(MANUAL), ACT11, XXDP CHAIN OR DUMP 


CLR XXDP - CLEAR "XXDP* LOAD DEVICE 5» | ORAGE 
CMPB #16,a0441 + gy FROM AN RMO5/3/2 ? 

BNE 3$ ;BR IF NOT 

MOV @#40 , XXDP :GET ae INDICATOR ta NUMBER 
fy a6 oP IS IT A VALID NUMBER 

CLRB XXDP NO, DEFAULT TO DRIVE 0 

TST B42 ;CHAIN MODE OR ACT11 AUTO ACCEPT ? 
BEQ 2$ ;BR IF NEITHER 


TYPE 76$ i: TYPE ASCIZ STRING 
BR 75$ :GET OVER THE ASCIZ 
-ASCIZ <CRLF>/NOT TESTING DRIVE / 


CLR ~ (SP) ;CLEAR WORD ON STACK 


om er ee ee eee eee em -———— - 


SEQ 0044 


TTT LT em me 
LA a 





113716 
104403 
001 


162737 


004737 
012737 


——_—_——— 


ZRMTAO RMO5/3/2 DR CMPT TST 
GET VALUE FOR SOF TWARE 


001404 


001207 


177777 
006414 


001404 


006454 


006544 


022654 


177777 
027110 


021134 
177777 


SWITCH REGISTER 


027476 
027500 


001352 


001332 
160000 


001332 
001332 


027436 


mm ea ee ee ee _ 


in 
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MOVB —XXDP,, (SP) GET DRIVE ADDRESS 
TYPOS TYPE THE ADDRESS 
.BYTE 1 “ONLY 1 CHARACTER 
‘BYTE 0 i SUPRESS LEADING ZEROS 
TYPE SCRLF CR 
$$ GET NUMBER OF DRIVES 
2$: INC t=] :FIRST TIME THRU HERE ? 
BNE 3$ : 
TYPE 78$ ; TYPE ASCIZ STRING 
7$ “GET OVER THE ASCIZ 
55788: ASCIZ <CRLF>/TO TEST DRIVE / 
CLR ~(SP) :CLEAR WORD ON STACK 
MOVB —- XXDP,, (SP) :GET DRIVE ADDRESS 
TYPOS : TYPE DRIVE ADDRESS 
‘BYTE 1 “ONLY 1 CHARACTER 
‘BYTE 0 :SUPRESS LEADING ZEROS 
TYPE 80$ :3 TYPE ASCIZ STRING 
79$ :GET OVER THE ASCIZ 
5808: ASCIZ /, HALT PROGRAM, REMOVE RRDP PACK AND REPLACE IT/<CRLF> 
TYPE 81$ :s TYPE ASCIZ STRING 
$ “GET OVER THE ASCIZ 
rr ASCIZ /WITH A WORK PACK. CLEAR LOCATION 40 AND RESTART PROGRAM. /<CRLF> 
JSR PC, $TKINT : TURN ON THE KEYBOARD INTERRUPT 
MOV SRMADR,RMADR = : RH/RM ADDRESS 
MOV SRMVEC.RMVEC : VECTOR ADDRESS 
MOV #ASNLST RS “START OF AREA TO CLEAR 
4$: CLR (R5)4 
CMP #INDST.RS ;LOOK FOR END OF CLEAR AREA 
BNE 4$ “BR IF NOT FINISHED 
MOV #STACK, SP “SETUP THE STACK POINTER 
CLR PS [CLEAR THE PROCESSOR STATUS WORD 
MOV HZ, SIXTEE :1/60 TH OR 1/50 TH SECOND COUNTER VALUE 
CLR HOUR [CLEAR THE HOUR'S COUNTER 
CLR MINUTE :CLEAR THE MINUTE'S COUNTER 
CLR SECOND :CLEAR THE SECOND'S COUNTER 
CLR CFLAG >CLEAR THE "CONTROL C' FLAG 
;ROUTINE TO DETERMINE BUFFER AREA SIZE 
SIZMEM: INC #~1 SEE IF TIME TO SIZE MEMORY 
BNE 1$ “BR IF NOT 
JSR PC, $SIZE > SEE HOW MUCH MEMORY ON SYSTEM 
1$: MOV SLSTAD,LSTAD SAVE THE LAST ADDRESS 
CMP LSTAD,#160000 :OVER 28k ? 
BLOS 5 :NO,THEN DON'T SET THE NEW LIMIT 
MOV #160000,LSTAD :SET NEW LIMIT 
2$: SUB #1500.*2,LSTAD :SAVE XXDP LOADER AND ABSOLUTE LOADER 


sSET UP THE OTHER SYSTEM DEVICES THAT THE PROGRAM WIL! USE 
SETVEC: JSR 
MOV 


PC,CKCLK 


:START THE CL 
#~j  SAVEFG 


OCK 
:SET THE SAVE REGISTERS FLAG 


ere ee we we - ee -_ eo dC-- 


SEQ 0045 





—_———e- nme ee we ee er se e-em ae ee 
me eee _-—C— 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0046 
87 :SETUP IF "XXDP" OR 'ACT11" OPERATION 
| 89 007006 005001 MONTR: CLR R1 :DRIVE # 
90 007010 005002 CLR R2 sAVAIL TABLE INDEX 
91 007012 005003 CL R3 “DRIVEM X 2 
92 007014 016300 004444 1$: MOV BLKADR(R3),RO <=LOAD DPB ADDRESS 
93 007020 004737 021620 JSR PC, CLRDPB :CLEAR DPB BLOCK 
94 007024 022322 2$: CMP (R3)+, (R2)+ : INCREMENT INDEX 
95 007026 005201 INC R1 “NEXT DRIVE 
96 007030 022701 000007 CMP #7,R1 sALL DRIVE ASSIGN ? 
7 007034 002367 BGE 1$ :NO 
99 
100 :ASSIGN LOGICAL DRIVES TO BE TEST IN THE PASS1 AND PASS 2 
101 : THREE WORDS ARE USED IN THE BIT MAPS: 
102 4 ASNLST = SPECIFIES THE LOGICAL DRIVES ASSIGNED 
103 : ASSGN1 = SPECIFIES THE LOGICAL DRIVES WILL BE TESTED IN PASS1. 
104 ASSGN2 = SPECIFIES THE LOGICAL DRIVES WILL BE TESTED IN PASS2. 
106 :EACH LOGICAL DRIVE HAS A HISTORY FILE LABELED DIRV'Z (2=0 TO 17) 
107 ;THE LOCATIONS LABELED $SYSNM AND $PHYRD IN THE HISTORY FILE 
108 : STORE THE SYSTEM NAME (A TO H) AND PHYSICAL DRIVE NUMBER 
110 ;THE SUB-SYSTEM ADDRESS AND INTERRUPT VECTOR ARE STORED 
14 ;IN THE TABLE LABELED ‘'SYSADR: 
113 "THE LOCATIONS SYSADR AND SYSADR+2 FOR SUB-SYSTEM A.SYSADR+4 
114 :AND SYSADR+6 FOR SUBSYSTEM B , ETC.THE FIRST WORD 
115 ;1S THE SUB SYSTEM ADDRESS WHILE THE SECOND WORD IS THE VECTOR 
17 * THE LOGICAL DRIVES ARE ASSIGNED FROM CONSOLE KEYBOARD. 
119 007036 012700 002006 MODOO: MOV #ASNLST,RO :ADDRESS OF 1ST BIT MAPS IN RO 
120 007042 012701 004424 MOV #INDST,R1 :LAST ADDRESS TO CLEAR 
121 637046 005020 1$: CLR (RO) + :CLEAR CURRENT POINTED ADDRESS 
122 007050 020100 CMP R1,RO sALL DONE ? 
123 007052 101375 BHI 1$ :NO, THEN BRANCH BACK 
124 007054 012737 000101 001274 MOV #°A, $CDW2 : TEMP STORAGE OF SYS NAME 
126 
127 007062 005037 001224 MOD21: CLR DRIVE : TEMP STORAGE OF PHYSICAL DRIVE BIT MAP 
128 007066 104401 001207 TYPE /SCRLF R-LF 
129 007072 104401 041354 TYPE | MESG1 : SUB~SYSTEM 
130 007076 104401 042222 TYPE §,QUOTM TYPE ''’* QUOTATION MARK 
131 007102 104401 001274 TYPE ,$CDW2 « SYS-NAME (A TO H) 
132 007106 104401 042222 TYPE § ,QUOTM : TYPE '''® QUOTATION MARK 
133 007112 104401 042330 TYPE | BLNKS1 -TYPE 1 BLANK 
134 007116 104401 041364 TYPE §,MESG2 “DRIVE (S) 
136 007122 104411 RDLIN :READ IN THE DRIVE NUMBERS 
137 007124 012601 MOV (SP) +,R1 :GET THE INPUT LINE ADDRESS 
138 007126 105711 1$: TSTB.~—_— (R1) : END OF STRING <CR> ? 
139 007130 001437 BEQ 3$ YES 
140 007132 004537 022310 JSR R5.CK.OCT :CHECK THE DIGIT MUST 0 TO 7.RETURN VALUE IN R2 
141 007136 000751 BR MOD21 : INCORRECT DRIVE NUMBER, ENTER AGAIN 
142 007140 156237 027464 001224 BISB ATABIT(R2),DRIVE ;SET THE PHYS. DRIVE BIT. R2 = DRIVE NUMBER 


15 
143 007146 022737 176700 001276 CMP #176700,$RMADR ;15 IT STANDARD RH/RM ADDRESS 





| i et 


144 007154 


—~ — 


WOCONAUIS WI 


VAANNARANVSSSASASASses yyy 


— 
28 
as 


cs sk ee ee ee ee ee ed ed ed dd ed od wd 
KFRASLSESESKARAT 


»*) 
™N 


GET VALUE FOR SOF TWARE 


301 
062701 


013737 
013737 


022737 
001457 
013700 
012701 


CZRMTAQ RMO5/3/2 DR CMPT TST 


001404 
001404 
042704 


042714 


000054 


001334 


001274 
177760 


002014 
001272 


001224 
007524 
177777 
002006 
000001 


I 4 
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001300 


000002 


002014 
002016 


002006 


;$CDW2 
;DRIVE 


2$: INC 


3$: TST 


MOD23: TST 


JMP 


MOD30: CMP 





2$ 

P 

XXDP,R2 
$ 


-QDRIV 
R2,-(SP) 


2 

0 

»-LODEV 
21 


MO 
$CDW2,R 
n177760, »R1 


R1 


R1 
A#SYSADR ,R1 
R1,$CDW1 


2(RO) , SRMVEC 

PC ,BUSADR 
SRMADR, (RO) 
SRMVEC ,2 (RO) 
MOD11 


SRMADR , SYSADR 


BR IF NO 
‘I of i LOAD DEVICE ? 


-IS THIS THE DRIVE ? 

;BR IF NO 

;TYPE ° ?DRIVE' 

7: SAVE R2 FOR TYPEOUT 
3;GO TYPE=--OCTAL ASCII 
sz TYPE 2 DIGIT(S) 

;; SUPPRESS LEADING ZEROS 
: TYPE ‘IS LOAD DEVICE’ 

; TRY AGAIN 


:END OF STRING <CR> ? 


“MUST BE A COMMA 
“ENTER AGAIN ,IF NOT 
“LOCATE NEXT DRIVE 


;START AT 200 ? 

:BRANCH IF SO 

>SYS_NAME ASCII FROM A TO H 
:LEFT ONLY 4 BITS 

;ADJUST INDEX VALUE 

:2 WORD INDEX VALUE 


“SYS ADDRESS TABLE ADDRESS 
; SYS ADDRESS TABLE'S ENTRY TO CDw1 


sCHECK IF ANY PHYSICAL DRIVE(S) ASSIGNED 
sBRANCH IF NONE 

:SYS ADDRESS TABLE ENTRY 

:; SYS ADDRESS 

: SYS VECTOR 

sCHECK THE ADDRESS WITH THE OPERATOR 
;NEW RH/RM ADDRESS INTO TABLE 

;NEW VECTOR OF RH/RM INTO TABLE 
BRANCH TO NEXT MODULE 


;LOAD THE SYSTEM ADDRESS TABLE 
VECTOR 


SRMVEC,SYSADR+2 ;LOAD THE 


Aa Be 
ASNLST ,RO 
#1,R1 


= ASCII NAME OF SUB SYSTEM (A TO H) 
:$CDW1 = ENTRY TO THE SYS ADDRESS TABLE 
= PHYSICAL DRIVES TO BE ASSIGNED 


;THIS SECTION OF CODING USES THE ABOVE PARAMETERS 
;TO SET UP THE BIT MAP OF ASNLST,ASSGN1 ,ASSGN2 


MOD11: TST 
BNE 


sANY DRIVE ASSIGN ? 

:BR IF YES 

BRANCH, IF NONE 

ate 72. 16 LOGICAL DRIVES BEEN ASSIGNED ? 


;BR 
FOUND THE AVAILABLE LOGICAL DRIVE LOCATION 
;START FROM LOGICAL DRIVE 0 





| i Woe’ 


SEQ 0047 


198 007376 


MNMIMINMPONN NON 
aad ad cd cd eed aod ed od 


224 007524 

225 

226 007524 
27 


231 546 
232 007552 
235 554 


2 

235 007564 
236 566 
237 007572 
238 600 


644 
S27 007650 





GET VALUE FOR SOFTWARE 


CZRMTAO RMO5/3/2 DR CMPT TST 


000015 
000060 
000011 
027464 


001334 
177777 
042227 
041364 
000001 
002006 
004444 


5 
000014 


J 4 
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000014 


001224 


002006 


001274 


1$: 


2$: 


3$: 


4$: 


4$: 


S$: 





Re 
R1,RO 
2$ 


R1 
5$ 
aE »R2 


BLKADR(R2), ne 
$CDW2,$SYSNM 
R1,ASNLST 


R1,ASSGN1 
4a »ASSGN2 


2 :DRIVE # 
ee 


R2 
R2,47 
3$ 


R2, (R4) 
(R4), eencare” | 


#°O,$P 


#HT , SGAP(R4) 
ATABIT(R2) ,DRIVE 
MOD 30 


CHGADR 
7$ 
7$ 
»MESG5 
-MESG2 
R3 


#1 ,R4 
R4,,ASNLST 
5$ 


BLKADR(R3) ,R5 
$SSYSNM(R5) »$CDW2" 


4 
(R5) ,-(SP) 


; INDEX VALUE 
:1S THE “LOGICAL DRIVE AVAILABLE ? 


sNEXT LOGICAL DRIVE 
;BRANCH IF NONE IS AVAILABLE 
ST OCATE re INDEX VALUE 

CATE NEXT LOGICAL DRIVE 


GET THE LOGICAL DRIVES HISTORY FILE 
NAME 


;LOAD THE ASCII SYS 
SET sees ae DRIVE ASSIGN BIT 
:SET PASS 1 BIT 
:SET ‘yy 2 BIT 


vit” THIS DRIVE ASSIGNED ? 


‘PHYSICAL DRIVE ets 
sALL — DONE YET ? 


:YES, EXIT 
:LOAD THE PHYSICAL DRIVE # INTO HISTORY FILE 
sGET PHYSICAL DRIVE NUMBER AND 
sMAKE IT ASCII. 
;MAKE UP FOR SCORE TYPE 

sDEASSIGN DRIVE BIi FROM LIST 
;BRANCH IF NOT ALL DONE 


7200 START ? 
: YES, THEN EXIT 
>FULL HOU 


:DRIVE(S) 

s INDEX TO LOGICAL DRIVE HISTORY FILE 
:BIT MAP OF ASNLST 

; ASSIGNED LOGICAL DRIVE ? 


;LOAD THE HISTORY FILE Facies 
;ON THE SAME SYSTEM 


“TYPE THE PHYSICAL DRIVE # 


; TYPE 1 BLANK 
: INCREMENT TO NEXT LOGICAL DRIVE 


sBIT MAP OF THE NEXT LOGICAL DRIVE 
sBRANCH IF ALL LOGICAL DRIVE'S CHECKED 
BRANCH BACK 


: SUB SYSTEM 
TYPE **** QUOTATION MARK 


A 
® TYPE "*** QUOTATION MARK 


SEQ 0048 





Sophy RMO5/3/2 DR CMPT TST 


T VALUE FOR SOFTWARE 


255 007654 
256 007660 


259 907694 
260 007700 
261 007702 
007706 

263 007714 
007716 

265 007722 
7726 

267 007732 
007736 


007740 
270 007744 
74. 007750 


N 
Ooooo0o0o 
ead ext aah aad ant cad cad eed 


001274 
000110 


001207 
042246 


001174 
001174 


001274 


000131 


017444 


6$: 
7$: 


B$: 


$CDW2 
#'H,$CDW2 
7$ 

» SCRLF 
»MESG7 


(SP)+,$TMPO 
STMPO ,#'Y 


oY 
MOD21 


oN 
CHGADR 
8$ 
XPASS1 
ASSGN1 
XPASS2 


a ne eee ee ew le ee eee Ce eee 
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> CHECK NEXT SUB SYSTEM 


EIGHT SUB SYSTEMS CHECKED? 


:C 
sASK_FOR OTHER SUB SYSTEM 


:BR IF 

; TYPE °Y* CHARACTER 

:SET UP OTHER SUB SYSTEM 
YPE % CHARACTER 

‘START 10 

7 YES, EXECUTE PASS2 ONLY 

:TO PASS1 


:CLEAR THE aed BIT MAP 
BRANCH TO PASS2 


:PASS ON a VARIABLES ARE ASSIGNED AS FOLLOWS: 


XPASS1: 


1$: 


SYSTEM NAME A 


_— 


.QUOTM 
(R1) ,DRIVE 
- SCRLF 


,$CDW2 
DRIVE ,~(SP) 


"$CRLF 


ADDRESS OF _ Ry ong Datei DRIVE HISTORY FILE 


CURRENT LOGICAL "DRIVE , 

ASSIGNED LOGICAL DRIVES 

ASSIGNED LOGICAL DRIVES IN THIS PASS 

ADDRESS OF DPB BLOCK FEEDED INTO DRIVER-HANDLER 
TEMP STORAGE OF ADDRESS OF THE LOGICAL BLOCK 


sANY DRIVES ASSIGNED FOR PASS1 
;BR IF YES, ELSE GO TO 


sEND OF PASS 1 


: INDEX OF LOGICAL BLOCK 

:ADDRESS OF oe ee vw . 0 
sSYS_ NAME STARTS FROM A 

:LOAD SYS-TEM A INTO 

: DIRVER-HANDLER 

;R1=ADDRESS OF LOGICAL BLOCK 1 
sRESET ALL INTERRUPT VECTOR 
:CLEAR THE INTERRUPT LEVEL 


>** STARTING PASS 1 


: SUB-SY YSTEM 
WE *™ sy a MARK 


$Y SCNAME A 
“TY YPE **** QUOTATION MARK 
:LOAD THE PHYSICAL DRIVE # 


:MOUNT PACK ON THE DRIVE 
YS~-NAME(A = 
:TYPE THE DRIVE # 


; TYPE 1 BLANK 
; CR-LF 


SEQ 0049 


312 Dh dre 


WWAAWANAWNG 
tk ed ed ed ds ed 
OCONAUISW 
aaiadbadadadad ad 


8 


0172 
3 0102 


OoOoooCceooO oO 


SOK 
= 
es 


242 
331 010244 
332 
333 010252 
34 


336 70 
337 010276 
338 010304 
339 010312 
340 010320 
8 010324 
343 010332 
344 


eeeeeeee 
RRRERKLE 





104401 
104401 


CZRMTAO RMO5S/3/2 DR CMPT TST 
GET VALUE FOR SOFTWARE 


041464 
0423350 


027514 


027360 


043042 
177777 
044032 
010536 
000004 


L 4 
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027436 
027440 


001402 
001372 
027360 
001372 


000006 
000014 
000004 
000012 
000011 


000002 


2$: RDLIN 


3$: MOV 


4$: JSR 


BR 
5$: TST 


6$: TYPE 





»MESG9 
BLNKS1 


(SP)+,R2 
(R2) 


2$ 

PC RMINIT 
#-1, SAVEFG 
#-1,SEEKFG 
DRIVE RO 
DRVSTA(RO) 
DRVTYP(RO) 


#18. 


me »DRVTYP(RO) 


#4,TRKLMT 
#FMTDPB RO 


4-256. ,SWRDM(RO) ; 
CYLIMT ,SCYL (RO) 
STRK (RO) 


TRKLMT 
$SEC (RO) 


DRVTYP(RO) ,DTYP 
, TRKLMT 


; TYPE 1 BLANK 


sCHECK IF O.P. READY 
sLOCATE THE INPUT LINE 
>FOLLOW BY <CR> ? 


sBRANCH IF NOT 

sINITIALIZE THE SUB SYSTEM 

: SAVE ALL pt age REGISTERS 

:DON'T DO IMPLY SEEK 

;RO=PHYSICAL DRIVE # OF is SUB SYSTEM 
sDRIVE EXIST AND ON LINE ? 

:BRANCH IF 


IF NOT 
s DRIVE se AN - tata ? 


BRANCH 

:GET DRIVE TYPE TO BE TESTED 
:GET LAST TRACK FOR AN RMO5 
:IS DRIVE AN RMO5 ? 


;BR_IF YES 
:GET LAST TRACK FOR AN RMO3/2 


;DPB ADDRESS 
;LOAD THE DRIVE NUMBER 
;LOAD BUFFER ADDRESS 
;AREA TO . a RH/RM REG'S 
WORD COUNT 
: CYLINDER B22. 
GET TRACK ADDRESS 


#RDDAT, SCOMND (ROS sREAD DATA COMMAND 


RO,RMO5 


4$ 
FMTDPB+16 
5$ 


7$ 
#2,FMTDPB+10 
it -FMTDPB+10 


» SCRLF 
zMESG10 
ENDX1 


:CALL THE DRIVER-HANDLER 

sPARAMETER ADDRESS 

sLOOPING IF QUEUE IS NOT SUCCESSFUL 
COMMAND DONE ? 


;BRANCH IF NOT. 

;BRANCH IF DONE, WITHOUT ERROR 
:TRY NEXT SECTOR (0, ee 4,6, 8) 
sALL_FIVE SECTORS CHECKED’? 
:NO, THEN TRY AGAIN 


; CR-LF 
sDRIVE IS NOT READY 


;STOP THE TEST 


sBAD SPOT FILE IS RETRIVED, IS STORED FROM BUFFER+4 TO BUFFER+256. FIRST 


;WORD CYLINDER #, SECOND WORD 
;A ~1 IN THE CYLINDER NUMBER. 


7$: MOV 
8$: CMP 


#BUF FER+10,R4 
#~-1,(R4) 


#BUF FER+1000,R4 
9$ 


RS, SPOTX 
11 
#4 RG 


TRK AND SEC NUMBERS, FILE IS TERMINATED BY 


:R4 ADDRESS OF Pre FILE 


: END OF BAD SPOT 


E 

: END OF BAD at FILE ? 
CH IF IT IS 

:CHECK THE CYLINDER POINTED BY (R4) 

;BRANCH IF BAD SPOT IN THE TEST ZONES 

s;NEXT BAD SPOT ADDRESS 


pe ee we ee eee ee + 


SEQ 0050 





CZRMTAO RMOS/3/2 DR CMPT TST 
VALUE FOR SOFTWARE 


GET 


369 010436 
370 


403 010536 
404 010540 
405 010542 
406 

407 010544 
408 010546 


000764 
032777 
001404 


010146 


1 

052703 
162701 
005302 
001403 


000200 170506 9$: BIT 


010720 


000007 
000021 
000007 
000160 
000006 
000017 


000002 
000017 


4 
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000010 


170440 


BR 8$ s;LOOPING BACK 
#BIT7,aSWR sSWITCH 7 SET ? 

BEQ 10$ :BRANCH IF NOY SET 

MOV #FMTDPB,RO + DPB ADDRESS 

JSR PC PRTBAD PRINT THE BAD SPOT FILE 
10$: TSTB $SEC (RO) SECTOR 10 HAS BEEN READ ? 

BNE sBRANCH IF SO 

MOVB #10.,$SEC(RO)  ;READ SECTOR 10 

BR 4$ sLOOPING BACK 
11$: TYPE -MESG11 sPACK NOT ACCEPTABLE 

TYPE . SCRLF ; CR=LF 

BIT 4#B1T7,ASWR :SWITCH 7 SET ? 

BEQ 12$ ;BRANCH IF NOT SET 

MOV #FMTDPB RO :DPB ADD 


RESS 
:TYPE THE BAD SPOT FILE 
;RESTART PASS 1 
:PROCEED TO TEST 1 


JSR PC ,PRTBAD 
12$: JMP XPASS1 
13$: JMP TST1 


; SUBROUTINE SPOTX 
oe ale THE CYLINDER POINTED BY (R4) IS IN THE TESTING ZONES 


:(0-15, 128-143, 256-271, 384-399, 5125 5527 640-655, 768-783, 
2112-127, 240-255, 368-353, 496-511, 624-639, 752-767, 17-32. 
2145-160, 273-288, 401-416. 529-544. OES 0 35° 785-800 AND 620) 


CALL 
: JSR RS, SPOTX :R4=POINT TO CYLINDER NUMBER 
: RET1 “ERROR RET 
; RET2 s NORMAL 
SPOTX: MOV R1,-(SP) :SAVE R1 THROUGH R3 
MOV R2,-(SP) 3 
MOV R3,-(SP) 
CLR R3 ZERROR FLAG 
CLR -(SP) =DUMMY PAIR 
CLR -(SP) =DUMMY PAIR 
CLR -( :ZONE STARTING ADDRESS 
MOV #7,-(SP) *SEGMENT NUMBE 
MOV #17. ,-(SP) :ZONE STARTING ADDRESS 
MOV #7.~ > SEGMENT R 
MOV #112. ,R1 :R1=ZONE STARTING ADDRESS 
MOV #6,R :R2=SEGMENT NUMBER 
1$: CMP (R4) RI =CYL IN THE ZONE ? 
BLO 3$ *BRANCH IF NOT 
ADD #15..R1 :CHECK WITH THE UPPER BOND 
CMP (R4) RI =CYL IN THE ZONE ? 
BHI 2$ sBRANCH IF NOT 
BIS #81T1.R3 :SET THE ERROR FLAG 
2$: SUB #15..R1 :RESTORE TO THE LOWER BOND 
3$: DEC R2 :DECREMENT THE SEGMENT COUNT 
BEQ 4$ sALL SEGMENT CHECKED ? 


SEQ 0051 


ee a eee - 


re ee ea eee - - 


N 4 | 
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426 010630 062701 000200 ADD #128. .R1 :ADJUST ZONE STARTING ADDRESS 
ae? 010634 000761 BR 1$ : ;LOOPING BACK UNTIL ALL SEGMENTS ARE CHECKED 
429 010636 012602 4$: MOV (SP)+,R2 ;POP THE NEXT SET OF ZONE PARAMETERS 
430 010640 012601 MOV (SP)+,R1 
431 010642 005702 TST R2 :DUMMY PAIR 
432 010644 0017355 BNE 1$ “BRANCH IF NOT 
433 010646 005701 TST R1 “DUMMY PAIR 
434 010650 001353 BNE 1$ “BRANCH IF NOT 
10652 021427 001154 S$: CMP (R4) ,4620. :0N CYLINDER 620 ? 
437 010656 001002 BNE ; 
438 010660 052703 000002 BIS #B1T1,R3 -SET ERROR FLAG 
439 010664 005703 6S: TST R3 ;ANY ERROR ? 
440 910666 001002 BNE 7$ YES 
441 010670 062705 000002 ADD #2,R5 :ADJUST FOR NORMAL RETURN 
442 010674 012603 7$: MOV (SP)+,R3 sRESTORE R3 THROUGH R1 
443 010676 012602 MOV (SP)+,R2 
444 010700 012601 MOV (SP)+,R1 
445 010702 000205 RTS R5 sEXIT 
447 010704 104401 001207 ENDX1: TYPE  ,$CRLF :CR-LF 
448 010710 104401 042422 TYPE ,MESG21 :DRIVE NOT ONLINE OR NOT ASSIGNED 
449 010714 000177 170460 JMP @RSTART : JUMP TO RESTART 
453 :THE FOLLOWING CODING FOR TEST 1 THROUGH TEST 4 
452 :PARAMETER IN TST 1 
453 : $CDW1 = ADDRESS OF LOGICAL DRIVE BLOCK 
454 : DRIVE = PHYSICAL DRIV VE 
455 : SDEVM = LOGICAL DRIVE # 0-17 
456 : ASSGN1 = ASSIGN LOGICAL DRIVE BIT MAP 
457 ; ASNLST = ASSIGNED LOGICAL DRIVE MAP INDICATOR 
438 : $CDW2 = SYS-NAME 
460 “$cDW2. DRIVE ARE ONLY CHANGED IN TST1 DURING PASS 1 
461 :SDEVM,ASSGN1,$CDW1 ARE CHANGED BY THE TEST 4 
465 ;TST 1:DIRECT OPERATOR TO MOUNT AND LOAD PACKS 
465 EAE EKKKKKKKKKKE 
010720 000004 $11: SCOPE 
010722 012737 000001 001176 MOV #1, $TIMES ;7D0 1_ ITERATION 
010730 012737 000001 001340 MOV #1, TSTNM THE TEST NUMBER 
467 010736 012706 001100 MOV #STACK, SP * INITIALIZE THE STACK POINT 
468 010742 023737 001272 004444 CMP $CDW1,BLKADR LOGICAL DRIVE 0 
469 010750 001551 BEQ 6$ TH N EXIT 
470 010752 013701 001272 MOV $CDW1,R1 1=LOGICAL DRIVE BLOCK ADDRESS 
471 010756 126137 000014 001274 CMPB SSYSNACRI) ,$CDW2" RSTICE ON THE SAME SYSTEM 
472 010764 001426 BEQ 1$ HEN T 
473 010766 116137 000014 001274 MOVB  $SYSNM(R1) $cDW2’ :LOAD THE NEW SUB SYSTEM NAME 
474 010774 012777 017344 016476 MOV #IDLEX,@RMVEC ;:RESET THE INTERRUPT VECTOR 
475 011002 005077 016474 CLR @RMVEC +2 :CLEAR THE INTERRUPT LEVEL 
476 011006 104401 001207 TYPE  ,$CRLF = CR=L 
1012 104401 041377 TYPE |(MESG3 :** STARTING PASS 1 
478 011016 104401 042242 TYPE §,MESG6 
479 011022 104401 041354 TYPE §_(|MESG1 : SUB-SYST EM 
480 011026 104401 042222 TYPE §-QUOTM :TYPE **'* QUOTATION MARK 


B 
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T VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0053 


me 
—_—_—_—“—“—_—_—_—_—_—_—_—_— a | 
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481 911032 104401 001274 TYPE —_, $CDW2 i SYSENAMECA TO H) 
482 C11036 104401 042222 TYPE ,QUOTM YPE *’’* QUOTATION MARK 
483 0110462 111137 001224 1$: VB (R1) ,DRIVE ‘LOAD THE PHYSICAL DRIVE # 
484 011046 104401 001207 TYPE ,SCRLF - 
485 011052 104401 041423 TYPE = _,MESG4 “MOUNT PACK ON THE DRIVE 
486 011056 104401 001274 TYPE ,$CDWZ 7 SYS-NAME(A TO H 
487 011062 113746 001224 VB DRIVE ,-(SP) ; THE PHYSICAL DRIVE 4 
488 011066 104403 TYPOS 
489 011070 -BYTE 1 
490 011071 BYTE 0 
491 011072 104401 042330 TYPE ,~BLNKS1 ; TYPE 1 BLANK 
492 011076 1046401 041451 TYPE -MESG8 ;AND LOAD 
493 011102 104401 001207 TYPE ,SCRLF 3 CR-LF 
rp 911106 104401 041464 TYPE ,MESG9 
496 011112 104411 e$: RDLIN 
497 011114 012605 V (SP)+.R5 sLOCATE THE READIN LINE 
498 011116 105715 TSTB (R5) T CORRECT INPUT LINE FORMAT 
499 011120 001374 BNE 2$ ® BRANCH H IF NOT 
500 011122 113701 001274 MOVB $CDW2,R1 sLOCATE THE SYSTEM ADPRESS TABLE 
501 011126 042701 177760 BIC #177760,R1 LEFT ON 4 BITS 
502 011132 005301 DEC R1 :ADJUST THE INDEX VALUE 
S03 011134 00630 ASL R1 sFOUR WORD INDEX VALUE 
504 011136 ASL R1 
505 011140 016137 002014 027476 MOV SYSADR(R1),RMADR ;LOAD THE SYSTEM ADDRESS 
06 011146 016137 2016 027500 MOV SYSADR+2(R1) ,RMVEC- ;LOAD THE SYSTEM INTERRUPT VECTOR 
507 011154 737 027514 JSR PC .RMINIT 3 IN ITIALIZE THE SYSTEM 
508 011160 012737 177777 027436 MOV #-} NSAVEFG > SAV E ALL RH/RM REGISTER 
509 011166 012737 177777 027440 MOV #-1,SEEKFG :DON'T DO ANY IMPLY SEEK 
510 011174 013700 001224 MOV DRIVE, RO ;RO= =PHYSICAL DRIVE # 
511 011200 105760 027350 TSTB DRVSTA(RO) ON-LINE ? 
512 011204 003426 BLE BRANCH IF NOT 
513 011206 105760 027360 TSTB DRVTYP(RO) bg DRIVE TYPE 
514 011212 003423 BLE 5$ “BR F NOT AN RMOS/3/2 
515 011214 122737 000007 001402 CMPB #7 ,DTYP ; WHAT WAS doy! DRIVE TESTED ? 
516 011222 001005 BNE $ CH IF 4N RMO2 OR RMOS, ELSE 
517 011224 122760 000007 027360 CMPB #7 ,DRVTYP(RO) «SEE IF DRIVE IS STILL AN RMOS. 
518 011232 001420 BEQ 6$ “BR IF YES 
519 011234 BR 4$ ZERROR ENCOUNTERED 
520 011236 122760 000007 027360 3S: CMPB #7,DRVTYP(RO) ;SEE IF DRIVE IS STILL AN RMO2 OR RMO3. 
521 011244 001013 BNE 6$ “BR IF YES 
522 011246 104401 001207 4$: TYPE ,SCRLF :CR-LF 
523 011252 104401 042734 TYPE ,NOTST > CANNOT SELECT es/e" S AND RMOS'S TOGETHER 
ase 011256 000177 170116 JMP @RSTART > JUMP TO RESTAR 
526 011262 104401 001207 S$: TYPE ,$CRLF :CR-LF 
527 011266 104401 041520 TYPE ,MESG10 :DRIVE NOT READY 
528 011272 00061 T1 TRY AGAIN 
529 011274 6$: 
530 
$31 sTEST 2 
532 ;BASIC READ AND WRITE TEST 
533 ;ALL LOGICAL DRIVE ACCESS CYLINDER 620 
534 ;AND SECTOR ADDRESS IS CORESPONDING TO THE LOGICAL DRIVE # 
535 one LOGICAL DRIVE PERFORM WRITE AND a CHECK GN ALL TRACKS, 
536 (TRKO = TRK4 ON AN RMO3/2 AND TRKO - TRK18 ON AN RMOS) 


538 

011274 

011276 
539 011 
540 011312 
541 011316 
942 011322 
543 011326 
544 011332 
545 011340 
546 011346 
547 011354 
548 011362 
549 011370 
550 011374 
551 011402 
552 011406 
553 011412 
554 011414 
555 011416 
556 011422 
557 011424 
558 011430 
559 011434 
560 011440 
561 011442 
562 011450 
563 011454 
564 011456 
565 011460 
566 011464 
567 011466 
568 011472 
569 011476 
570 011502 
571 011504 
572 011512 
573 011516 
574 011524 
575 011526 
576 011530 
577 011534 
5978 011540 
579 011544 
580 
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000002 


000002 
001372 





SRR EREATAAAAAAAARRAAAAERAEEAEEEEREEEKREREEEEEE 


TST2: 


2s: 


3$: 


4$: 


S$: 


6$: 


#1,$TIMES ;;DO0 1 ITERATION 
. 1STNM sl TEST NUMBER 
AMSTACK , SP : INITIAL THE STACK POINTER 


#FMTDPB RO :DPB8 BLOCK ADDRESS 


$CDW1,R1 ;ADDRESS OF THE LOGICAL DRIVE SLOCK 
DRIVE, (RO) :PHYSICAL DRIVE # 
SDEVM,$SEC(RO) =:LOAD THE SECTOR #,FROM THE LOGICAL DRIVE NUMBER. 
#620.,$CYL(RO) ;:LOAD CYLINDER NUMBER 
#-256. ,SWRDM(RO) :LOAD NEG WORD COUN 
WBUFFER,S$BUF (RO) :LOAD BUFFER ADDRESS 
#RM.REG,14(RO)  :ADDRESS TO SAVE ALL RH/RM REG'S 
STRK (RO) ‘START FROM TRACK 0 
MWRTDAT , SCOMND (RO) :WRITE DATA COMMAND 
PCF ILBUF :FILL THE BUFFER WITH STANDARD PATTERN 
RO,RMOS :CALL THE DRIVER 
;BRANCH IF NOT QUEUE SUCCESSFULLY 
FMTDPB+16 
:BRANCH IF NOT DONE 
#FMTDPB,RO :RO=FMTDPB ADDRESS 
PC PROCESS :CHECK THE TERMINATION 
16(RO) sERROR FLAG SET ? 


6$ “BRANCH IF SO 
#WCKD,$COMND(RO) ;CHANGE TO THE WRITE CHECK DATA COMMAND 
0,RMOS :CLLL THE DRIVER 


4$ ;BRANCH IF NOT QUEU SUCCESSFULLY 
FMTDPB+16 iD ? 

5$ ;BRANCH IF NOT DONE 

#FMTDPB,RO 3 

PC,PROCES ;PROCESS IF ANY ERROR HAPPENS ? 
16(RO) sERROR FLAG SET ? 


6$ ‘BRANCH IF SO 
#WRTDAT ,SCOMND(RO) ;RESET TO WRITE DATA COMMAND 
STRK(RO) INCREMENT TO THE NEXT TRACK 


ee sALL TRACKS DONE ? 
TST3 sBRANCH TO NEXT TEST 
- SCRLF ; CR=LF 

eHALTI 

eHAL TX 

@RS TART > JUMP TO RESTART 


sTEST 3 
;WRITE 7 ZONES FOR WRITE TEST IN PASS 2 


7WRITE 6 ZONES F 
; SDE VM 


OR READ TEST IN PASS2 
LOGICAL DRIVE # 
ove tal OF LOGICAL DRIVE HISTORY BLOCK FILE 


Y 
PHYSICAL DRIVE # OF THIS LOGICAL DRIVE 
os cnr 


ZONE T 

DELTA CYLINDER COUNT 

ENTRY POINTER OF TABLED, CANNOT BE DESTORYED. 
ADDRESS OF FMTDPB 


me ewe ee eee SCO 


SEQ 0054 
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S13: SCOPE 
MOV 


#1,$TIMES ::D0 1 ITERATION 

MOV #3. TSTNM :LOAD THE TEST NUMBER 

MOV #STACK,SP : INITIAL THE STACK POINTER 

MOV #LOGO,R4 :ADDRESS OF TABLED 

MOV $DEVM.RO sLOGICAL DRIVE # 

BEQ 2$ :BRANCH IF LOGICAL DRIVE 0 
1$: ADD #16. RG :EACH LOGICAL DRIVE TAKES 16 BYTES IN THE TASLE 

DEC RO :DECREMENT THE DRIVE # COUNT 

BNE 1$ :BRANCH ,UNTIL THE ENTRY IS akOCATED 
2$: MOV R4 PACK :SAVE THE TABLE=D ENTRY IN PACK 

:SET UP THE FMTDPB BLOC 
MOV #FMTDPB,RO :ADDRESS OF FMTDPB 


MOVB #WRTDAT,$COMND(RO) sWRITE DATA COMMAND 
MOV WBUFFER,$BUF (RO) ;BUFFER ADDRESS 


MOV #RM.REG,14(RO) ;ADDRESS TO SAVE ALL RH/RM REG'S 
MOV #-256. , $WRDM(RO) :NEG WORD COUNT 
MOV SDEVM VM.R1 LOGICAL DRIVE # 


R NDEX 
MOV PSEUDO(R1),R4 :LOAD THE DATA PATTERN 
MOV SBUF (RO) ,R2 :BUFFER ADDRESS IN R2 


MOV #256. .R3 :POS WORD COUNT 
3$: MOV R4,(R2)+ L THE BUFFER WITH SIGLE WORD PATTERN 
DEC R3 ‘ DECREMENT THE WORD COUNT 
BNE 3$ = BRANCH, UNTIL Int 1S FULL 
CLR -(SP) :DUMY PAIR OF ZONE COUNT 
CLR -(SP) :DUMY STARTING CYLINDER NUMBER 
MOV #6,-(SP) :ZONE COUNT 
MOV #112. ,=(SP) : STARTING CYLINDER NUMBER 
MOV #7, CMCNT :ZONE COUNT 
CLR CMCYL : STARTING CYLINDER NUMBER 
4$: MOV #16. ,CMSEC :DELTA CYLINDER NUMBER 
MOV #FMTDPB,RO :RO DPB ADDRESS 
MOV PACK,R4 =R4 ENTRY TO TABLE-D 
S$: MOV CMCYL,$CYL(RO) :STARTING CYLINDER 
CLRB TRK (RO) *STARTS FROM TRACK 0 
6$: MOVB  (R4),$SEC(RO) :LOAD SECTOR NUMBER FROM TABLE-D 
7$: JSR RO,RMOS :CALL THE DRIVER 
7$ ;BRANCH IF QUEU IS NOTSUCCESSFUL 
8$: TST FMTDPB+16 :DONE ? 
BEQ 3 *BRANCH IF NOT 
MOV #FMTDPB,RO 
JSR PC PROCES : PROCESS TO CHE Ck IF ANY ERROR 
TST 16(RO) sERROR FLAG SET 
BM] $ = BRANCH 


IF SO 
ADD #16.,$SEC(RO)  ;WRITE TWO SECTORS ON ONE CYLINDER 
CMPB #31..$SEC(RO) ALL oo ie NOT SECTORS 


; BRAN 
MOVB (R4),$SEC(RO)  ;RESTORE SECTOR 
INCB STRK(RO) ; INCREMENT . NEXT TRACK 
CMPB STRK(RO),TRKLMT ;LAST TRACK 


SEQ 0055 


Sm eae ae es ee -- 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0056 
648 012062 003743 BLE 7$ NO, THEN ee 
649 012064 105060 000011 CLRB $TRK(RO) :RESTORE TO TRACK-0 
650 012070 005260 000012 INC $CYL (RO) ‘INCREMENT. CYLINDER ~ 
651 012074 005204 INC RS : INCREMENT TABLE=D ENT 
652 012076 005337 001362 DEC CMSEC :DECREMENT THE DELTA CYLINDER COUNT 
653 012102 001331 BNE 6$ ;BRANCH IF NOT END OF THIS BLOCK 
654 012104 062760 000160 000012 ADD #112.,$CYL(RO) ;INCREMENTTHE CYLINDER NUMBER TO NEXT ZONE 
655 012112 016037 000012 001356 MOV SCYL (RO) ,CMCYL :IN ITAIL THE STARTING CYLINDER IN THE BLOCK 
656 012120 005337 001354 DEC CMCNT  ;DECREMENT THE ZONE COUNT 
657 012124 001304 BNE 4$ sLOOPING IF NOT END OF ZONE 
658 012126 012637 001356 MOV (SP)+,CMCYL :LOAD NEW PAIR OF STARTING CYLINDER 
659 012132 012637 001354 MOV (SP) +,CMCNT ;AND ZONE COUNT 
660 012136 005737 001356 TST CMCYL ;NOT END YET ? 
661 012142 001275 BNE 4$ ;BRANCH IF NOT 
662 012144 005737 001354 TST CMCNT ;BRANCH IF NOT END 
at 012150 001272 BNE 4$ ;LOOPING BACK 
665 012152 000410 BR TST4 ;BRANCH TO THE NEXT TEST 
666 012154 104401 001207 9$: TYPE , SCRLF 3; CR=LF 
667 012160 104401 042554 TYPE »HALT2 
668 012164 104401 042464 TYPE ~HALTX 
oe 012170 167204 JMP @RSTART ;JUMP TO RESTART 
671 TEST 4 
672 :UPDATE THE PARAMETERS , $CDW1,$DEVM,ASSGN1 
oo DIRECT THE OPERATOR TO DISMOUNT PACK AND LOAD TO OTHER DRIVE 
oe  $CDW2, DRIVE ARE CHANGED BY TEST ONE ONLY AFTER THE TEST LOOPING TO TEST1 
677 gar er eae lene ameter amarante 
012174 000004 TST4 SCOPE 
012176 012737 000001 001176 MOV #1,$TIMES St 1 ITERATION 
678 012 012737 000004 001340 MOV #4, TSTNM LOAD THE TEST NUMBER 
679 012212 012706 001100 MOV WSTACK, SP sLOAD THE STACK POINTER 
680 012216 012777 017344 015254 MOV #IDLEX,@RMVEC  :RESET THE INTERRUPT VECTOR 
681 012224 005077 015252 CLR @RMVEC +2 ;CLEAR THE INTERRUPT LEVEL 
682 012230 104401 001207 TYPE , SCRLF > CR-LF 
683 012234 104401 041650 TYPE »MESG12 + UNLOAD DRIVE 
012240 104401 001274 TYPE ,$CDW2 YS-NAME(A = H) 
685 012244 013746 001224 MOV DRIVE ,-(SP) :PHYSICAL DRIVE # 
686 012250 104403 TYPOS 
687 012252 001 -BYTE 1 
688 012253 000 BYTE 
012254 104401 041666 TYPE -MESG13 
012260 012701 1 MOV , 
1 012264 002 CLR R2 
692 012266 020237 001270 1$: CMP R2,$DEVM ;LOCATE THE CORESPONDING BIT MAP 
693 012272 001404 BEQ 2$ :BRANCH IF LOCATED 
694 012274 000241 CLC sLOCATE NEXT DRIVE 
695 012276 006101 ROL R1 
696 0123500 005202 INC R2 “NEXT DRIVE # 
697 012302 000771 BR 1$ sLOCATE THE BIT 
698 O12 040157 002010 2$: BIC R1,ASSGN1 ;DEASSIGN THE LOGICAL DRIVE FOR PASS 1 
699 012310 001410 BEQ 4$ :NO MORE DRIV 
700 012312 005202 3$: INC R2 :GET NEXT LOGICAL DRIVE # 


4 006302 ASL Re sWORD INDEX 
6 016237 004444 001272 MOV BLKADR(R2) , $CDw1 :LOAD THE NEW DPB ADDRESS 
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703 012324 
704 012326 


5 
706 012332 
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754 012536 
755 012542 
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5 
758 012552 
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017046 
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a eee + - ee 


—— eee 


A 
MACRO V03.01 11-APR-80 14:43:18 PAGE 8-14 


SWITCH REGISTER 


Re 1So6 
001274 

027476 
027500 


015040 


4$: 


5$: 


:XPASS2 


2$: 


Re 
R2,$DEVM 
(SP)+,R5 
(R5) 

4$ 
ASSGN1 
5$ 
XPASS2 
TST1 


sRESTORE R2 
sLOAD THE NEW LOCICAL DRIVE # 


sWAIT UNTIL IT IS DONE 
sLOCATE THE INPUT LINE 
; TERMINATOR ? 


;BRANCH IF NOT 

sOTHER DRIVES ? 

BRANCH M MORE DRIVES IN TEST 
;BRANCH TO PASS 2 

;JUMP TO TEST 1 


INITILIZE FOR PASS 2 TEST 


ASSGN2 
1$ 


$CDW1,R1 


.QUOTM 
(R1) ,DRIVE 
- SCRLF 

SG4 


»ME 
.$CDW2 
(R1) ,-(SP) 


1 

0 
-BLNKS1 
»MESG8 


- SCRLF 
»MESG9 


(SP)+,R2 


ADDRESS OF THE CURRENT LOGICAL DRIVE HISTORY FILE 
SYSTEM NAME A THROUGH H 


A 
CURRENT LOGICAL DRIVE # 0 TO 15. 
ASSIGNED LOGICAL DRIVE FOR PASS 2 
ASSIGNED LOGICAL DRIVE 
PHYSICAL DRIVE # OF CURRENT RH/RM SYSTEM 


sANYTHING IN TEST FOR PASS 2 
:YES,THEN GO ON 
; JUMP TO END OF PASS 2 


START FROM LOGICAL DRIVE 0 
;ADDRESS OF LOGICAL Sees DRIVE 0 
sLOAD SYSTEM NAME ° 

sLOAD SYSTEM-A ADDRESS TO DRIVER 
:LOAD SYSTEM-A VECTOR TO DRIVER 
;R1=ADDRESS OF LOGICAL ate 


E 
:RESET THE NOT COMPATIBLE FLAG 
“START THE PASS 2 
: SUB-SYSTE 


M 
TYPE °’** a ye MARK 
‘Tyee’ ‘o TO H 


TA ATION MARK 
sLOCATE THE PHYSICAL DRIVE # 


; CRLF 
:MOUNT PACK ON DRIVE 
> SYSTEM NAME 


; TYPE 1 BLANK 

;AND LOAD 

;CR-LF 

; TYPE <CR> WHEN DRIVE IS READY 


sLOCATE THE READ IN LINE 


Ce 


SEQ 0057 
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| GE 

| 760 012556 
762 012562 

763 


775 012654 
776 


777 012656 
Me 012662 


79 012666 
780 012672 


1 
1 
1 
1 
1 


105712 
001374 


027514 


027350 


027360 
027360 


010704 


027436 
027440 


001402 
001372 
027360 


001372 


001176 
001340 
004444 
001274 


001274 
014524 


027476 
027500 





(R2) 
2$ 
JSR PC ,RMINIT 


MOV #~1 ,SEEKFG 


V DRIVE ,RO 
TSTB DRVSTA(RO) 
BLE 4 
TSTB DRVTYP(RO) 
BLE 4$ 
3$: MOVB DRVTYP(RO) ,DTYP 
MOV #18. ,TRKLMT 
CMPB #7 ,DRVTYP(RO) 
BEQ 5$ 


MOV #4, TRKLMT 
BR 5$ 


CARRIAGE RETURN ? 
;BR IF NO 


sSAVE ALL RH/RM — 


DON’T DO IMPLY K 
;LOAD THE PHYSICAL DRIVE — 
; DRIVE Be Aa ON-LINE ? 


CHECK DRIVE TYPE 


;BR_IF NOT AN RMO05/3/2 
;GET DRIVE TYPE TO BE TESTED 
FOR AN RMO5 


:GET LAST TRACK 
:IS ge AN RMO5 ? 


;BR IF YES 
;GET LAST TRACK FOR AN RMO3/2 


4$ TYPE ,SCRLF ; CR-LF 
TYPE »MESG10 ;DRIVE IS NOT READY 
JMP ENDX1 
5$: 
; $CDW1 = ADDRESS OF CURRENT LOGICAL DRIVE BLOCK.ONLY CHANGED BY TST9 
; $CDW2 = SYSTEM-NAME, ONLY ws BY TEST 5 
; SDEVM = CURRENT LOGICAL DRIVE # 
; ASSGN2 = ASSIGNED “$0: DRIVE'S BIT MAP FOR PASS 2 
3 DRIVE = PHYSICAL DRIVE # 
; ASNLST = ASSIGNED LOGICAL DRIVE IN THE TEST 


;IN TEST 5 DIRECT OPERATOR TO CHANGE, LOAD THE PACK 


SEERA AERA 


1815: SCOPE 
MOV #1,$TIMES 
MOV #5 ,TSTNM 
MOV ASTACK, SP 
CMP en ee 


BEQ 

MOV $CDW1,R1 

CMPB SSYSNM(R1) »$CDW2" 
BEQ 1$ 

MOVB SSYSNM(R1) ,$CDW2" 
MOV #IDLEX ,@RMVEC 
CLR @RMVEC +2 

MOV $CDW2,RO 

DEC RO 

BIC #177760,RO0 

ASL RO 


RO 
MOV SYSADR (RO) 


;;DO 1 ITERATION 
; LOAD THE 


TEST NUMBER 
;LOAD THE STACK POINTER 
{LOGICAL DRIV VE 0 


XIT 
;ADDRESS OF a HISTORY FILE 


sON THE SAME SUB-SYSTEM 
N DON'T UPDATE SYSTEM ADDRESS 


sRESET THE INTERRUPT VECTOR 


:CLEAR THE INTERRUPT LEVEL 


:LOCATE SYSTEM sg TABLE 
ZAD FORM 0 


JUST FOR INDEX 
;LEFT ON FOUR BITS 


FOR TWO WORD 


; INDEX 
RMADR ;SYSTEM ADDR 


ESS 
MOV SySADR+2(RO) , RMVEC ; iSYSTEM INTERRUP VECTOR 


TYPE ° 

TYPE »MESG14 
TYPE -MESG6 

TYPE »MESG1 

TYPE .QUOTM 

TYPE .$CDW2 


2 CR=L 
:START THE PASS 2 
: ON 


4 STEM 
TYPE **** QUOTATION MARK 
® SYS=NAME (A TO H) 


SEQ 0058 
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842 
843 013174 
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849 013222 
850 013226 
851 

852 013232 
853 013236 


854 013242 
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027350 
027360 
000007 
000007 


000007 
001207 
042734 
166146 


001207 
041520 


—ar eon ees = + eo 
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SWITCH REGISTER 


027436 
027440 


001402 
027360 


027360 


1$: MOVB 


2$: RDLIN 
MO 


RMVEC 


2 R1 


7A UNIQUE DATA 


.QU0TM 

(R1) DRIVE 
,$CRLF 

“ME SG4 


.$CDW2 
(R1),=(SP) 


1 

0 
-BLNKS1 
»MESG8 


. SCRLF 
»MESG9 


(SP)+,R2 
(R2) 

2$ 

PC ,RMINIT 
#-1,SAVEFG 
#-1 ,SEEKFG 
DRIVE ,RO 
DRVSTA(RO) 
DRVTYP(RO) 
5$ 

#7 ,DTYP 


#7 ,DRVTYP(RO) 
6$ 


4$ 
#7 ,DRVTYP(RO) 
6$ 


SEQ 0059 


YPE **"* QUOTATION MARK 
‘LOCATE THE PHYSICAL DRIVE # 


;CR=L 
;MOUNT PACK ON DRIVE 
> SYSTEM NAME 


; TYPE 1 BLANK 
;AND LOAD 


; CR-LF 
; TYPE <CR> WHEN DRIVE IS READY 


sLOCATE THE READ IN LINE 
CARRIAGE RETURN ? 
BR IF 


>SAVE ALL RH/RM REGISTERS 
:DON'T DO IMPLY SEEK 

sLOAD THE PHYSICAL DRIVE — 
: DRIVE | oy eee ON-LINE ? 


; BRAN 

: CHECK DRIVE TYPE 

:BR IF NOT AN RMOS/3/2 

; WHAT _ FIRST DRIVE TESTED ? 
; H IF AN RMO2 OR RMO3, ELSE 

;SEE IF DRIVE IS STILL AN RMOS. 

:BR IF YES 

sERROR ENCOUNTERED 

‘aR it a IS STILL AN RMO2 OR RMOS. 


R-LF 
* CANNOT SELECT RMO3/2°S AND RMOS'S TOGETHER 
JUMP TO RESTART 


;CR-LF 
;DRIVE IS NOT READY 
RY AGAIN 


PHYSICAL DRIVE NUMBER 
DPB BLOCK OF mus LOGICAL DRIVE 
AL DRIVE # 


SUB-SYSTEM BASE REGISTER ADDRESS 
SUBSYSTEM INTERRUPT VECTOR 


; THE ABOVE PARAMETERS CANNOT BE a BY THIS TEST (TST6) 


nunnuw wu 
> 
' 
~ 
~< 
~ 


; THE oy ones REG*S ARE ASSIGNED 


= ADDRESS OF DPB FIELD INTO DRIVER HANDLER=FMTDPB 
= ADDRESS OF THE HISTORY FILE BLOCK OF THE LOGICAL DRIVE=$CDw1 


:IN TEST 6, ne LOGICAL DRIVE WRITES 7 CYLINDERS ON EACH TRACK WITH 


PATTERN. 


;DRIVES IN PASS 1, 


a eee ~~ ee ia ee ee ee ee 


THESE 7 CYLINDERS HAVE BEEN WRITTEN BY OTHER 





013244 
4 


884 0135272 
885 013276 
886 013500 
887 013302 


KEKEEER 


OO 000000 
OONAUES WhO 
NM —— 
KESANSaN 


MN 
NL} 
AAA RRR RRR RR RR RR RE 
© 





CZRMTAQ RMO5/3/2 DR CMPT TST 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


030264 
004524 
004506 
017352 


000016 
027514 


ro 
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001176 
001340 


027436 
027440 


001372 


000012 


; THEN, THIS LOGICAL DRIVE EXECUTES ‘WRITE CHECK DATA’’ TO SEE IF THIS 
;LOGICAL DRIVE CAN OVER-WRITE ALL DATA WRITTEN BY OTHER DRIVES. 


;THESE 7 CYLINDERS ARE SPECIFIED_AS SDEVM, $DEVM+128, SDEVM+256, SDEVM+384, 
:SDEVM+512, $DEVM+640 AND SDEVM+768. 


>THE OVER“WRITE TEST IS PERFORMED WITH OFFSETS IN BOTH DIRECTIONS. 


REAR AKEAREKRAEAEAEKEKEEKAAEEERERAEEAREKEERREERREEREAEEREREEEEKEEAKEKKKKKEE 


+ST6: 


2$: 


SCOPE 


#1 ,$TIMES 
#6, TSTNM 

WSTACK,SP 
HOVWNO ,R3 


foe 1_ITERATION 


sl TEST NUMBER 
s INITIAL THE STACK POINT 
;1 ST ADDRESS CLEAR 


#RDNO ,R4 ;LAST ADDRESS+ 

(R3)+ he ALL SCORE BOARD 

R4,R3 ALL LOCATIONS ARE CLEARED ? 

1$ CH IF NOT 

#FMTDPB RO ;SET UP STARTING ADDRESS OF DPB 


$CDW1.R1 HISTORY FILE BLOCK 
DRIVE, (RO) OAD THE PHYSICAL DRIVE # 


#819. SHRDM (ROS LOAD THE WORD COUNT (ONE TRACK) 
SSEC(RO) “START FROM TRACK = 0, SECTOR = 0 
#WR 1DAT, SCOMND(RO) ;:WRITE DATA COMMAND 

SDEVM, $CYL (RO) LOAD THE STARTING CYLINDER 
WBUFFER,$BUF (RO) :LOAD THE BUFFER ADDRESS 

#RM. REG, 14(RO) REG S SAVE ADDRESS 

SDEVM,R2 


sLOCATE THE DATA PATTERN 
:WORD INDEX 


R INDEX 
aire tenth R2 ;LOAD R2 WITH THE DATA PATTERN POINTER 


0) RS *BUFFER ADDRESS 
#8192. :WORD COUNT 
Re. nase “FILL THE BUFFER 


sDECREMENT WORD CTR 
58 sBRANCH IF NOT DONE 


START TO WRITE ONE CYLINDER ON EACH TRACK OF EACH WRITE CURRENT ZONE 
;(7 ZONES ON EACH PACK) 


3$: 


4$: 


223: 


JSR 
FMTDPB 
BR 


RO,RMO5 ;CALL THE DRIVER 
sPARAMETER BLOCK 
3$ sBRANCH IF QUEUE FAIL 
FMTDPB+16 WRITE C D 
4$ NO, THEN WAIT Pigs is 
#FMTDPB,RO :PROCESS IF ANY ERROR ce 
PC PROCES wh 
16(RO) sERROR FLAG SET ? 
2$ CH IF NOT 
PC ,RMINIT : INITIAL THE DRIVE 
#-1,SEEKFG 
$TRK(RO) NEXT TRACK 
$TRK(RO),TRKLMT ;LAST TRACK IS DONE ? 
3 :NO, THEN BRANCH 
$TRK(RO) >RESET TRACK NUMBER 


#128.,$CYL(RO) ;MOVE TO NEXT ZONE 


SEQ 0060 





927 013514 
< 013522 


9 

934 013524 
935 013530 
936 013534 
937 013540 
938 


939 613546 
940 554 


975 013752 
976 
977 013754 


9835 014002 


CZRMTAO RMO5S/3/2 DR CMPT TST 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
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022760 001417 000012 
103333 


005037 
012700 


005060 
013760 
112760 


7 
012737 


027436 
027440 


000010 
000004 


000004 


000006 
000014 


027436 


CMP #783. ,$CYL(RO) 


sLAST ZONE IS DONE ? 
CH IF NOT 


BHIS 3$ ;BRAN 


sRESET THE FMTDPB BLOCK AND EXECUTE WRITE-CHECK COMMAND TO DETECT ANY 
pogo PROBLEM. THE FOLLOWING SUBROUTINE ARE CALLED SCORE, OFFST 


CLR OF F COD 


sSET NEGATIVE nese DIRECTION FLAG 


LOOP1: MOV #FMTDPB,RO “RO=FMTDPB AD 
CLR $SEC(RO) * START PROMS SECTOR 0, TRACK 0 
MOV SDEVM, SCYL (RO) ; START ING CYLINDER NUMBER 
:TOTAL 7 CYLINDERS ON ONE TRACK 
LOOP2: MOVB  #WCKD,$COMND(RO) :WRITE=CHECK=DATA COMMAND 
MOV #BUF FER, $BUF (RO) ;RESET BUFFER ADDRESS 
MOV #RM.REG,14(RO) ;ADDRESS TO SAVE RH/RM REG'S 
1$: JSR RO,RMO5 :CALL THE DRIVER 
FMTDPB :PARAMETER BLOCK ADDRESS 
BR 1$ :BRANCH IF QUEUE FAILURE 
2$: TST FMTDPB+16 :TEST IF COMMAND IS DONE ? 
BEQ 2$ :BRANCH , IF NOT 
MOV #FMTDPB,RO ; LOAD THE PARAMETER BLOCK ADDRESS 
JSR PC PROCES “REPORT IF ANY ERROR 
JSR PC,LABAD sLOCATE STARTING AND ENDING SECTORS 
TST 16(RO) “ANY ERROR ? 
BPL 33 :BRANCH IF NONE 
JSR PC ,RMINIT - INITIAL THE SYSTEM 
MOV #~1, SAVEFG 
MOV #~-1, SEEKFG 
BR 5$ :NOT UPDATE THE SCORE 
3$: JSR PC, SCORE : INCREMENT SCORE 
4$: TST SRMWC (RO) ; WORD COUNT = 0 / 
BEQ 5% CH, IF WORD COUNT IS 0 
MOVB  $RMDA(RO).$SEC(RO) :UPDATE STARTING SECTOR 
MOV SRMWC (RO), $SWRDM(RO) :UPDATE WORD COUNT 
BR 1$ :TO READ THE REST SECTORS 
;THE FOLLOWING CODING TEST THE COMPATIBLE PROBLEM IN OFFSET MODE OFFCOD = 
: (NEGATIVE) AND OFFCOD = 1(POSITIVE). 
5$: MOV #FMTDPB,RO -RESET THE DPB BLOCK 
MOV #8192, “$WRDM(ROS :FULL TRACK WORD COUNT 
CLRB = $SEC (ROS ;RESET TO SECTOR 0, TRACK NOT CHANGED 
MOV SARFER. F (RO) :BUFFER ADDRESS 
MOV #RM.REG,14(RO) ADDRESS TO SAVE ALL RH/RM REG'S 
6$: JSR R5,OFFST :CALL OFFSET 
BR 10$ :BRANCH TO NEXT CYLINDER. IF OFFSET FAILS 
JSR PC ,MAKEUP ;CALL WRITE CHECK IN OFFSET MODE 
7$: TST FMTDPB+16 OFFSET WRITE CHECK IS DONE ? 
BEQ 7$ BRANCH IF NOT 


MOV #FMTDPB RO 


:LOAD THE DPB Reng te. 
:REPOR 


JSR PC,PROCES T ,_ IF ANY ERROR 
JSR PC ,LABAD : LOCATE START INF AND ENDING SECTORS 
an Sa ANY ERROR ? 


JSR PC RMINIT 
MOV #~-1, SAVEFG 


;BRANCH, IF NONE 
: INITIAL THE SYSTEM 


SEQ 0061 





CZRMTAO RMOS/3/2 DR CMPT TST 


GET 


VALUE FOR SOF TWARE 


999 014064 


— —) 3 


BESS SR eS SS SSS 33333332 
geeeeeeeees 


BRERRARARRARRARRSR 
ERRSAURS 


LS 
© 


elelelelelelejelele) 
3 3 3 
WONAUBWN © 


Sees 


Qu kwh — 


014144 


lie dee ee ee ee ee ee ee ee ee ee ee eee ee 
Oooo0oo 
MINIMA 


012737 
000414 


010146 


177777 
014514 
000022 
000026 
000022 


000200 
001417 


013546 
001270 
0000 


11 
000011 
013546 
004504 


000001 
013530 
015040 


004506 
000002 
001224 
000117 
030264 
004524 
177776 
000240 
0045 

027476 
001224 
000010 
000012 


ee ie eee 
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SWITCH REGISTER 


027440 
000010 
000004 


000012 
000012 


000012 
001372 


004504 


000002 


177776 


000034 


8$: 
9$: 


10$: 


11$: 


12$: 


13$: 


;OFFST ROUTINE 
; OFFSET net HEAD IN THE DIRECTION TOWARD SPINDLE OR AWAY FROM THE SPINDLE 


CALL 


OF FST: 


1$: 


F COD 


#~1 ,SEEKFG 
10$ s;NOT UPDATE THE SCORE 
PC ,SCORE ; UPDATE r. TEST SCORE 
SRMUC RO) : WORD CTR=0? 
10$ TR = 0 BRANCH TO NEXT OP 


F WORD C 
;UPDATE THE NEW STARTING ADDRESS 
sUPDATE THE NEW WORD COUNT 


sADJUST CYLINDER ADDRESS TO NEXT ZONE 
sALL 7 ZONES HA 


SRMDA (RO) '$seccRd) 
SRMWC (RO). $WRDM(RO)- 


6$ 
#128. ,$CYL(RO) 


#785. ,SCYL(RO) L HAVE BEEN TESTED ? 
sBRANCH, IF ALL DONE 

| 0OP2 ;TO NEXT WRITE CURRENT ZONE 

SDEVM, SCYL(ROD sRESET CYLINDER ADDRESS 

$TRK(RO) : INCREMENT TO NEXT TRACK 

STRK(RO),TRKLMT ;ALL TRACKS ARE TESTED ? 

12$ sBRANCH IF ALL D 
2 ;TO NEXT TRACK 

OF F COD ;F INI SHING TEST THE POSITIVE OFFSET ? 

$ H IF ALL DONE 

#1 ,OFF COD ;SET POSITIVE OFFSET DIRECTION FLAG 
1 ;RESTART LOCATION 

TST? ;BRANCH TO NEXT TEST 


1, TOWARD SPINDLE (POSITIVE) 


= 0, AWAY FROM SPINDLE (NEGATIVE) 
= PHYSICAL DRIVE NUMBER 
= DPB ADDRESS 
= 3 TIMES 
RS,OFFST 
OFFSET FAIL RETURN ADDRESS 
OFFSET SUCCESSFUL RETURN 
R1,-(SP) :SAVE ALL REGISTERS 
R2,-(SP) 
R3,-(SP) 
R4,-(SP) 
#FMTDPB,RO :RO DPB ADDRESS 
SCOMND (RO) ,-(SP) -SAVE THE 1/0 COMMAND 
DRIVE, (RO) :LOAD THE DRIVE 


#117,$COMND(RO) :RETURN TO CENTER COMMAND 
RO, RMOS [CALL THE DRIVE HANDLE 


6$ :BRANCH IF QUEUE FAILS 
FMTDPB+16 >COMMAND DONE ? 
1$ :BRANCH IF NOT 

:BRANCH IF ERROR EXIST 
BPS, -(SP) >SAVE THE PSW 
#<5%52.>,aMPS LOAD PS 5 
#FMTDPB,RO :DPB ADDRESS 
RMADR,R4 *MUSS BUS ADDRESS 
RIVE.R1 E NUMBER 


D :DRIV 
R1,RMCS2(R4) OAD THE DRIVE NUMBER INTO CONTROLLER 
SCHL (ROD "RMD (RGS :CYLINDER NUMBER 





SEQ 0062 


CZRMTAO RMO5/3/2 DR CMPT TST 
GET VALUE FOR SOFTWARE 


SSSsssssssssss < 
UEWN—OwOd~ 


Vivi 
wooon 


SUSEPESES 


es 


1087 


SSEFZRSSIIIE 
esssssssssssso 
™ 

& 


a ae 
N28 


112637 
012604 
012603 
012602 
012601 
000205 


010146 


000006 
177776 
000200 
004504 
000115 
030264 
004524 


000002 
004510 


Bs 


co 
SRSSSsss 
Ne ee 
SENGNGES 
~ Nm 
QAR 





2s: MOVB 


3$: TST 


6$: 


sMAKEUP ROUTINE 


ee ee 
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000010 
000004 


$SEC (RO) RMDACR4) ;SECTOR AND TRACK NUMBER 
SWRDM(ROS ,RMWC (RG) COUNT 

SBUF (RO) ’ RPBALRG) -BUFFER ADDRESS 

(SP) +, a4PS :LOAD THE PSW BACK 

#8177. $FMT (RO) ;LOAD | THE OFFSET DIRECTION 
OFF COD :NEG ? 


=BRANCH IF NOT 

#0,$FMT (RO) =CHANGE TO OTHER DIRECTION 

#115,$COMND(RO) :LOAD THE OFFSET COMMAND 
0,RMO5 :CALL THE DRIVE HANDLE 


6$ ;BRANCH IF QUEUE FAILS 
FMTDPB+16 sOFFSET DONE ? 

3$ “BRANCH IF SO 

6$ ;BRANCH IF ERROR 

#2,R5 ;ADJUST RETURN ADDRESS 
(SP) +,FMTDPB+$COMND sRESTORE THE I/0 COMMAND 
(SP) +,R4 sRESTORE REG 

(SP)+,R3 

(SP)+,R2 

(SP)+,R1 

R5 sEXIT 


: THIS ROUTINE —— A WRITE CHECK OR READ COMMAND TO THE SELECTED DRIVE 


;IN OFFSET 


;AND SET UP THE 


DTUW 
TRNSWT 
DRVACT 
TIMER 


CALL 
JSR 
RET 


FOLLOWING PARAMETERS 
PHYSICAL DRIVE NUMBER 
FMTDPB 


1 SECOND 


PC ,MAKEUP 


“MAIN PURPOSE OF THIS ROUTINE,TO EXECUTE A COMMAND WHILE ASSURE THAT 


:THIS R 


WRITE-CHECK COMMAND BEING 1 ty th IN OFFSET MODE. 


EAD OR 
;ROUTINES USED TD,SC,STO,( IN DRIVE HANDLER 


MAKEUP: MOV 


1$: CLR 


R1,-(SP) 
R2,~(SP) 
R4,-(SP) 
M#WCKD ,R2 sWRITE CHE CK DATA IN TEST 6 
#10, TSTNM :0N TEST 8 ? 
1$ ;BRANCH IF NOT 
#RDDAT ,R2 sREAD DATA COMMAND IN TEST 8 
FMTDPB+1 :CLEAR THE STATUS WORD 


4 
R2,FMTDPB+$COMND ;LOAD THE COMMAND INTO PDB 
DRIVE ,DTUW sACTIVE DRIVE NUMBER 
#FMTDPB,TRNSWT :TRANSFER UNDERWAY FLAG 
DRIVE Ri “DRIVE NUMBER 

RM BASE ADDRESS 


RMADR , R4 :RH/RM 
#1,DRVACT(R1) ACTIVE DRIVE FLAG 


M 5 
CZRMTAO RMO5/3/2 “¢ CMPT TST MACRO V03.01 11-APR-80 14:43:18 PAGE 8-21 


GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0064 





1103 014466 006301 ASL R1 :WORD INDEX 
1104 014470 012761 060000 027442 MOV #60000, TIMER(R1) ; ONE SECOND TIMER 
1105 014476 00620 ASR R1 
1106 014500 010264 000000 MOV Re. RMCS1(R4)  ; ISSURE WRITE CHECK OR READ COMMAND 
1107 014504 012604 MOV SP)+,R4 sRESTORE REG 4, 1 
1108 014506 012602 MOV (Sp)s “R2 
1109 014510 012601 MOV (SP)+_R1 
1110 014512 000207 RTS PC sEXIT 
1112 : SCORE ROUTINE 
1113 “ROUTINE TO UPDATE THE TEST SCORE 
1114 : TABLEX = ADDRESS OF CURRENT SCORE BOARD 
1115 : DEVM = LOGICAL DRIVE # 
1116 : DRIVE = PHYSICAL DRIVE NUMBER 
1117 : CMSEC = END SECTOR ADDRESS 
1118 ; STARSC = START SECTOR ADDRESS 
1120 > CALL 
1121 : JSR PC, SCORE 
1122 2 RET 
1123 
1124 014514 SCORE: 
014514 010146 MOV R1,-(SP) ;sPUSH R1 ON STACK 
014516 010246 MOV R2,-(SP) = :PUSH R2 ON STACK 
014520 010346 MOV R3,-(SP) 33 R3 ON STACK 
014522 010446 MOV R4,-(SP) = :PUSH R4 ON STACK 
1125 014524 023737 001362 001360 CMP CMSEC,STARSC CORRECT START AND STOP ADDRESSES 
1126 014532 00347 BLE 9$ “BRANCH IF NOT 
1127 014534 022737 000010 001340 CMP #10, TSTNM -ON TEST 8 
1128 014542 001011 BNE :BRANCH IF NOT (MUST BE TEST 6) 
1129 014544 005737 004504 TST OFF COD :NEGATIVE OFFSET ? 
1130 014550 001403 BEQ 1$ sBRANCH IF NEGATIVE OFFSET 
1131 014552 012703 003676 MOV #RDPO,R3 =SCORE BOARD ADDRESS 
1132 014556 13 BR 
1133 014560 012703 003216 1$: MOV #RDNO,R3 :SCORE BOARD ADDRESS 
1134 014564 10 BR 4$ 
1135 014566 005737 004504 2$: TST OFF COD :NEGATIVE OFFSET 
1136 014572 001403 BEQ *BRANCH, IF NEGATIVE OFFSET 
1137 014574 012703 002536 MOV #OVWPO,R3 :SCORE BOARD ADDRESS 
1138 014600 02 BR 4$ 
1139 014602 012703 002056 3S: MOV #OVWNO.R3 :SCORE BOARD ADDRESS 
1140 014606 113702 004517 4$: MOVB  FMTDPB+$TRK,R2 :LOAD THE TRACK NUMBER 
1141 014612 005702 TST R2 “ON TRACK 0 
1142 014614 001404 BEQ :BRANCH IF IT IS 
1143 014616 062703 000020 5$: ADD #16. ,R3 :EACH SCORE BOARD TAKES 16 BYTES 
1144 014622 005302 DEC R2 “LOCATED ? 
1145 014624 001374 BNE 4 *BRANCH IF NOT 
1146 014626 010337 002054 6$: MOV R3, TABLEX :STORE THE TABLE STARTING ADDRESS 
1147 014632 010301 MOV °R1 =RE ASSIGN REGISTERS 
1148 014634 013702 001270 MOV SDEVM,R2 sLOGICAL DRIVE # 
1149 014640 013703 001360 MOV STARSC,R3 “START SECTOR 
1150 014644 116204 004424 MOVB  INDST(R2).R4 =: LOCATE THE STARTING POINT FOR SCORE BOARD 
1151 014650 304 ADD R3_R4 “UPDATE POINT 
1152 014652 022704 000017 11$: CMP #15. RG : SHOULD POINTER BE ADJUSTED ? 
1153 014656 003003 BGT 7 “BR IF 
1154 014660 162704 000020 SUB #16. .R4 “ENTRY POINT AT THE SCORE BOARD 
1155 014664 772 BR 11$ : 


wee ee ee 


CZRMTAO RMO5/3/2 DR CMPT TST 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0065 

1156 014666 01 7$: ADD R4,R1 : 
1157 014670 023703 001362 8$: CMP CMSEC ,R3 sENDING SECTC? REACHED ? 
1158 014674 002412 BLT 9$ ;BRANCH IF IT IS 
1159 014676 105221 INCB ss (R14 ; INC SCORE AND POINT TO NEXT LOGICAL DRIVE 
1160 014700 005204 INC R4 s INCREMENT LOGICAL DRIVE # 
1161 014702 005203 INC R3 : INCREMENT SECTOR COUNT : 
1162 014704 022704 000017 CMP #15. ,R4 ;TIME TO RESET TABLE ? | 
1163 014710 002367 BGE BRANCH IF NOT | 
1164 014712 013701 002054 MOV TABLEX,R1 ;RESET TABLE ADDRESS 
1165 014716 005 CLR R4 -« GLOGICAL DRIVE 0 
1166 014720 000763 BR 8$ ;LOOPING BACK 
1167 014722 

014722 012604 MOV (SP)+,%%4 ;;POP STACK INTO R4 

014724 012603 MOV (SP)+,K3 ;;POP STACK INTO R3 

014726 012602 MOV (SP) +,R2 :;POP STACK INTO R2 

014730 012601 MOV (SP)+,R1 :;POP STACK INTO R1 
1168 014732 207 RTS PC 
1169 
1170 | 
1171 ;LABAD ROUTINE | 
1172 ;LOCATE THE START SECTOR AND THE TERMINATE SECTOR OF THE PREVIOUS | 
1173 : OPERATION. | 
1174 ; STARSC = STARTING SECTOR 
1125 ; CMSEC = ENDING SECTOR 
1177 ; INFORMATION FROM $RMDA(FMTDPB) , SRMWC (FMTDPB) , $SEC (FMTDPB) 
1178 : $SEC (FMTDPB) , $WRDM(FMTDPB) 
1179 7 CALL 
1180 ; JSR PC, LABAD 
1181 ; RET 
1182 
1183 014734 LABAD : 

014734 010046 MOV RO,~(SP) ;3PUSH RO ON STACK 

014736 010246 MOV R2,-(SP) PUSH R2 ON STACK | 
1184 014740 012700 004506 MOV #FMTDPB RO :DPB ADDRESS | 
1185 014744 116002 000026 MO SRMDA(RO) ,R2 ;HARDWARE TERMINATING SECTOR | 
1186 014750 042702 177740 BIC #177740 ;CHOP OFF HIGH ORDER BITS IF ANY 
1187 014754 116037 000010 001360 MOVB SSEC(ROS STARSC ;STARTING SECTOR ADDRESS | 
1188 014762 005702 TST R2 : TERMINATOR AT 0 SECTOR : 
1189 014764 001404 BEQ 1$ BRANCH IF IT IS | 
1190 014766 005302 DEC R2 ;DECREMENT ONE SECTOR COUNT | 
1191 014770 010237 001362 MOV Ro, CMSEC sENDING SECTOR ADDRESS | 
1192 014774 16 BR EXIT | 
1193 014776 005760 000022 TST SRMWC (RO) {WORD COUNT = 0 | 
1194 015002 001410 BEQ & BRANCH IF IT IS | 
1195 015004 026060 000022 000004 CMP SRMWC (RO) ,SWROM(RO) ; WORD COUNT CHANGED AT ALL ? 
1196 015012 001004 BNE NCH _IF CHANGED 
1197 015014 116037 000010 001362 MOVB  $SEC(RO).CMSEC ;END SECTOR = START SECTOR 
1198 015022 000403 BR 3$ EXIT 
1199 015024 112737 000037 001362 28: MOVB #31.,CMSEC :END AT SECTOR 31 
1200 015032 3$: 

015032 012602 MOV (SP)+,R2 ;;POP STACK INTO R2 

015034 012600 MOV (SP) +,RO :;POP STACK INTO RO 
1201 015036 000207 RTS PC 
1202 
1203 :TEST 7 
1204 ;SELF TEST:WRITE CYLINDERS $DEVM+17,$DEVM+17+128, SDEVM+17+128X2,ETC. 


ee ae eee ee - -_-—— - 





CZRMTAO RMO5S/3/2 DR CMPT TST 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


Mmronosronronony 
dD cD ed eh ed eed eed eed 


OONO NEW 
VO 


3 


cm ee ee ee ee ee ee ed ee ee eed edd eed 
were re) 
atle wi @) 


mrronnnr 


Nm 


MmNN 


1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
01 
1 
1 
01 
01 


1231 01 


—— 
mn 
Nm 
UEWN— 


SSaIseVeeee 





062760 
022760 


000004 
000002 


027436 
027440 


001372 
000012 
000012 


000002 


a EXECUTE WRITE CHECK oa ANY DATA OR HEADER PROBLEM 





;FOR THE SELECTED ta oe 


1ST7: SCOPE 


1$: CLR 


2$: 


3$: 


223: 


:$DEYM: LOGICAL DRIVE # 
:DRIVE: PHYSICAL DRIVE # 


-  RRERAAERAKCAAAAAAARARAAEAEAEARERAKEAEAREARERARARAEREREREREREEHEKREEROEEE 
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SEQ 0066 


SS ee 


#1, STIMES ::DO0 1 ITERATION 
PC_RMINIT s INITIAL THE DRIVE 
#-1, SAVEFG :SAVE THE RH REG'S 
#-1,SEEKEG 
#7, TSTNM :LOAD TEST NUMBER 
#STACK,SP - INITIAL THE STACK 
wSELFO, ~R2 ; CLEAR THE SELF TEST SCORE BOARDS 
+ 
#SELF18,R2 “ALL DONE ? 
1$ *BRANCH IF NOT 
#FMTDPB,RO -SET UP DPB 
#-8192.,$WRDM(RO) :LOAD FULL TRACK WORD COUNT 
#WRTDAT , $COMND (RO) :WRITE DATA COMMAND 
$SEC(RO) “SECTOR 0, TRACK C 
DRIVE, (RO) :LOAD PHY. DRIVE 
SDE she “LOCATE THE STARTING CYLINDER 
R2,$CYL (RO) :CYLINDER ADDRESS 
#BUF FER, $BUF (RO) :RESET BUFFER ADDRESS 
#RM.REG, 14 (RO) ZADDRESS TO SAVE ALL RH/RM REG'S 
PCF ILBUF sFILL THE BUFFER WITH WORSE CASE PATTERN 
RO,RMOS :CALL DRIVER HANDLER 
2$ :BRANCH IF QUEUE FAILS 
FMTDPB+16 sALL DONE ? 
3$ =BRANCH IF NOT 
#FMTDPS RO “REPORT IF ANY ERROR 
PC PROCES 
16(RO) sERROR FLAG SET ? 
22$ CH IF NOT 
PC .RMINIT : INITIAL THE DRIVE 
#~-1, SAVEFG 
#~1, SEEKFG 
$TRK (RO) :NEXT TRACK 


$STRK(RO) , TRKLMT 


(R0) 
7138. - SCYL (RO) 
* ae ,$CYL (RO) 


eALL TRACK ARE DONE ? 
CH IF NOT 


“RESET SECTOR AND TRACK 
;ADVANCE TO NEXT ZONE 
;_ALL 7 ZONES ARE DONE ? 
BRANCH IF NOT 


sEXECUTE WRITE CHECK TO DETECT ANY DATA OR HEADER PROBLEM 


MWCKD ,. SCOMND (RO) 


WSELFO,R2 
SDEVM,R3 
#17.,R3 
R3,$CYL (RO) 
OF F COD 


CHANGE TO WRITE CHECK COMMAND 
;R2 POINTS TO SCORE BOARD 
CAN NOT BE DESTORIED 
:LOACATE STARTING ADDRESS 


sSTARTING CYLINDER 
:SET NEGATIVE OFFSET FLAG 
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CZRMTAO RMOS/3/2 DR CMPT TST 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


030264 
004524 
004506 
017352 
000016 


014144 
014376 
004524 


004506 
017352 
000016 


004504 


ee me ae eC --- oe - - —---- - —_ 
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004504 


001372 


4$: 


S$: 


6$: 


7$: 


8$: 


9$: 


10$: 


11$: 


:TEST1O TEST 8 
;CYLINDERS TESTED : 
;THIS TEST SELECT 

;ZONE 17 6 


1$: 


SDE VM 
DRIVE 


O ZONE 


RO,RMU5 
4$ 

* lil 
#FMTDPB,RO 
PC,PROCES 
16(RO) 
(R2) 
RS,OFFST 
8$ 

PC ,MAKEUP 
FMTDPB+16 
7$ 
#FMTDPB,RO 
PC,PROCES 
16(RO) 

8$ 

(R2) 

OFF COD 

9$ 

R2 

ca cOFh Ces 
STRK(RO) 
R2 


STRK(RO), TRKLMT 


OF F COD 

4$ 

$SEC (RO) 
#SELFO,R2 


#128. ,$CYL (RO) 
#800. . CYL (RO) 


OFF COD 
4$ 


‘CALL DRIVE HANDLER 


BRANCH IF QUEUE FAILS 
sALL DONE ? 
:BRANCH IF NOT 


: ANY ERROR 
“YES, THEN DON'T INCREMENT SCORE 
: INCREMENT SCORE 

“BRANCH IF OFFSET FAILS 

; EXECUTE WRITE CHECK IN OFFSET MODE 


LL DONE / 
“BRANCH IF NOT 
sREPORT IF ANY ERROR 


sERROR BIT SET ? 
DON'T INCREMENT SCORE 
; INCREMENT SCORE 


:POSITIVE OFFSET IS DONE ? 
; F DONE 


:BRANCH ,] 

: INCREMENT SCORE aT POINTER 
sSET POSITIVE OFFSET FLAG 
:POSITIVE OFFSET TEST 
: INCREMENT TO NEXT TRACK 
;ADVANCE SCORE BOARD POINTER 
sALL TRACKS ARE DONE ? 

; BRANCH 


IF ALL DONE 
RESET OFFSET DIRECTION 
TRACK 


sALL 7 ZONES ARE DONE ? 


sBRANCH ,IF ALL DONE 
;RESET OFFSET FLAG 
:TO NEXT ZONE 

:TO NEXT TEST 


READ COMPATIBLE TEST 


SDEVM+112,SDEVM+112+128XN N=1 TO 5 
ONE CYLINDER FOR EACH LOGICAL DRIVE FROM 


= LOGICAL DRIVE # 
= PHYSICAL DRIVE # 


fF AAA AAA AEAERAAERAAERARAEAEAAEAAEEEAAEAEAEEEEEEEEEEEEEEEE 


TST10: 


#1 STIMES 

#10, TSTNM 

#STACK, SP 
#RDNO,R2 


(R2)+ 
anor i016. Re 


:;D0 1_ ITERATION 
NUMBE 


sl TEST R 
sINITAIL THE STACK POINTER 
:CLEAR THE SCORE BOARD OF READ TEST 


sALL DONE 
;BRANCH IF NOT 


SEQ 0067 


—e- a oe 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0068 
1315 015612 005037 004504 CLR OFF COD :SET NEGATIVE OFFSET FLAG 
1316 015616 012700 004506 LOOP3: MOV #FMTDPB,RO SET UP DPB BLOCK 
1317 015622 012760 160000 000004 MOV #-8192. “SWRDM(ROS sLOAD THE WORD CTR,FULL TRACK 
1318 015630 005060 000010 CLR SSEC (ROS -TRACK 0 SECTOR 6 
1319 015634 112760 000171 000002 MOVB §#RDDAT,S$COMND(RO) ;LOAD THE READ DATA COMMAND 
1320 015642 012760 043032 000006 MOV #BUFFER,$BUF(RO) :RESET BUFFER ADDRESS 
1321 015650 012760 004526 000014 MOV #RM.REG,14(RO) ;ADDRESS TO SAVE ALL RH/RM ADDRESS 
1322 015656 113710 001224 MOVB DRIVE, (RO) :LOAD PHY. DRIVE ADDRESS 
1323 015662 013703 001270 MOV SDEVM,R3 “LOCATE STARTING CYL 
1324 015666 062703 000160 ADD #112. ,R3 
1325 015672 010360 000012 MOV R3,$CYL (RO) :STARTING CYL ADDRESS 
1326 015676 004037 030264 1$: JSR RO,RMOS :CALL THE DRIVE HANDLER 
1327 015702 004506 FMTDPB 
1328 015 000774 BR 1$ 
1329 015706 005737 004524 2$: TST FMTDPB+16 : COMMAND DONE ? 
1330 015712 001775 BEQ 2$ *BRANCH IF NOT 
1331 015714 012700 004506 MOV #FMTDPB,RO 
1332 015720 004737 017352 JSR PC PROCES :REPORT IF ANY ERROR 
1333 015724 004737 014734 JSR PC, LABAD :LOACATE START AND STOP ADDRESS 
1334 0 005760 000016 TST 16(RO) :ANY ERROR ? 
1335 015734 100011 BPL 3$ ;BRANCH, IF NONE 
1336 015736 004737 027514 JSR PC .RMINIT : INITIAL THE SYSTEM 
1337 015742 012737 177777 027436 MOV #~1, SAVEFG 
1338 015750 012737 177777 027440 MOV #~-1,SEEKFG 
1339 015756 000414 BR 5$ :NOT INCREMENT THE SCORE 
1345 015760 004737 014514 3$: JSR PC, SCORE :UPDATE THE SCORE 
1346 015764 005760 000022 4$: TST SRMWC (RO) :WORD COUNT= 0 
1347 015770 001407 BEQ 5$ ‘BRANCH IIF IT IS 
1348 015772 116060 000026 000010 MOVB  $RMDA(RO),$SEC(RO) :UPDATE THE NEW STARTING SECTOR 
1349 01 01 000022 000004 MOV SRMWC (RO), $WRDM(RO) :UPDATE WORD COUNT 
1350 01 000733 BR 1$ : CONT INUE 
1351 016010 012700 004506 S$: MOV #FMTDPB,RO *RESET THE DPB BLOCK 
1352 016014 012760 160000 000004 MOV #-8192.,$WRDM(RO) :FULL TRACK WORD COUNT 
1353 016022 105060 000010 CLRB  $SEC(RO) :RESET TO SECTOR 0, TRACK NOT CHANGED 
1354 016026 004537 014144 6$: JSR R5,OFFST :CALL OFFSET 
1355 016032 000443 BR 10$ sBRANCH IF OFFSET FAILS 
1356 016034 004737 014376 JSR PC ,MAKEUP sEXECUTE READ DATA IN, OFFSET MODE 
1357 016040 005737 004524 7$: TST FMTDPB+16 :OFFSET READ IS DONE ? 
1358 016044 001775 BEQ 7$ :BRANCH IF NOT 
1359 016046 012700 004506 MOV #FMTDPB,RO “REPORT IF ANY ERROR 
1360 016052 004737 017352 JSF PC PROCES 
1361 016056 004737 014734 JSR PC, LABAD :LOCATE THE START AND STOP ADDRESSES 
1362 016062 005760 000016 TST 16(RO) :ANY ERROR ? 
1363 016066 100011 BPL 8$ :BRANCH, IF NONE 
1364 016070 004737 027514 JSR PC .RMINIT - INITIAL THE SYSTEM 
1365 016074 012737 177777 027436 MOV #-1, SAVEFG 
1366 016102 012737 177777 027440 MOV #-1,SEEKFG 
1367 016110 000414 BR 10$° :NOT UPDATE THE SCORE 
1373 016112 004737 014514 8$: JSR PC, SCORE sUPDATE THE SCORE 
1374 016116 005760 000022 9$: TST SRMWC (RO) :WORD COUNT IS 
1375 016122 001407 BEQ 10$ “BRANCH IF IT IS 
1376 016124 116060 000026 000010 MOVB  $RMDA(RO).$SEC(RO) :UPDATE SECTOR ADDRESS 
1377 016132 016060 000022 000004 MOV SRMWC (RO). SWRDM(RO) :UPDATE WORD COUNT 
1378 016140 000732 BR 6$ ;LOOPING UNTIL CURRENT TRACK IS DONE 
1379 016142 062760 000200 000012 10$: ADD #128.,$CYL(RO) :ADJUST CYLINDER TO NEXT ZONE 
1380 016150 022760 001377 000012 CMP #767. “$CYL (RO) :ALL 6 ZONES ARE DONE ? 
1381 016156 103402 BLO 11$ :BRANCH IF ALL DONE 


ee ee ee 
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4 6270 
1416 016274 


1435 016364 
1436 


GET VALUE FOR SOF TWARE 


000137 
013703 


CZRMTAO RMOS/3/2 DR CMPT TST 


015676 


015676 
004504 


000001 
015616 


000020 
00000 
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SWITCH REGISTER 


001372 


004504 


001176 
001340 


11$: 


12$: 


13$: 
3 TEST11 


; REPORT 
:DIRECT 


1$ 
SDEVM,R35 
#112. ,R3 
R3,$CYL(RO) 
$TRK (RO) 


$STRK(RO), TRKLMT 
12$ 


1$ 

OF F COD 
13$ 

#1 ,OFF COD 
LOOPS 


TEST 9 
THE TEST SCORES 
THE OPERATOR TO CHANGE PACK AND MOUNT TO OTHER DIRVE 


$DEVM 


BADSEC 


CMTRK 


;LOCATE STARTING CYLINDER 


:STARTING CYLINDER 

;TO NEXT TRACK 

;ALL SRUFACE ARE DONE ? 

;BRANCH IF ALL DONE 

sLOOPING UNTIL CURRENT TRACK IS DONE 


s OFFSET —_ POSITIVE ? 
;1F EQUAL,THEN ALL DONE 
:SET POSITIVE OFFSET FLAG 


:TO NEXT TEST 


LOGICAL DRIVE #, SHOULD NOT BE UPDATED BEFORE THE 


REPORT IS COMPLETED. 


0, (DRIVES ARE COMPATIBLE) 
-1, (DRIVES NOT COMPATIBLE) 


TRACK NUMBER FOR CONTROLLING THE SCORE TYPING. 


REAR ERKEK EE 


rST11: 


4$: 
S$: 


SCOPE 


#1. $TIMES 

#11, TSTNM 
#STACK, SP 
-(SP) 

~(SP) 
#SELF0+1,-(SP) 
#RDPO, -(SP) 
#SELFO.R2 

#R 





¢ D0 1_ ITERATION 


LOAD THE TEST NUMBER 
:LOAD THE STACK POINTER 
; DUMMY SCORE BOARD ADDRESSES 


“POSITIVE OFFSET READ TEST SCORE ADDRESS 
sPOSITIVE OFFSET TEST SCORE 
;NEGATIVE OFFSET READ TEST SCORE 

sNEGATIVE OFFSET READ COMPATIBLE TEST SCORE 
:R1= TRACK NUMBER 

ieee iP be SCORE IS TOO LOW 


; INCREMENT READ COMPATIBLE SCORE FOR ALL 16 DIRVES 
:ADJUST SCORE BY ADDING 6 


:UPDATE SCORE AND aia’: TO NEXT DRIVE 
sALL DRIVES ARE UPDATED 
BRANCH IF NOT 


sADJUST POINTER OF SCORE BOARD ADDRESS 
sUPDATE THE SELF a SCORE ADDRESS 
;ALL TRACKS DONE ? 


;BRANCH IF NOT 
;GET NEXT PAIR 


ee ee ee ee ee 


| CZRMTAO RMO5/3/2 DR CMPT TST 


1437 
1438 
1439 016366 


1440 016372 
1441 016376 
1442 016400 


1465 016516 

1466 

1467 016520 
6524 


1485 016614 
1486 016620 
1487 016622 
1488 


1493 016632 


000001 
122762 
101403 
004537 
000002 
122762 
101403 
004537 
000003 
122762 
101403 
004537 
000004 
000441 
122712 
101403 
004537 
000001 
122762 
101403 
0045 


00000 
013704 
006 


202 
022701 


001342 
001364 


002056 
000001 
002006 


001366 
001270 


000016 
017052 
000016 
017052 
000014 
017052 
000014 
017052 


000016 
017052 
000016 
017052 
001364 
000006 
017052 
001364 
000006 
017052 


000017 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


000460 


001140 


001620 


000460 


004356 


004357 


a ee 
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SET ACCEPTANCE FLAG, INITIALIZE THE TABLE POINTERS AND TRACK NUMBER 


LOOP4: 


KPATH: 


1$: 


2$: 


3$: 


4$: 


SPATH: 


1$: 


2$: 


3$: 


4$: 


LOOPS: 





BADSEC 3; SET a le FLAG 
CMTRK :§ TART FROM TRACK 0 
RI > START FROM LOG DRV 0 
VWNO ,R2 = SCORE BOARD BASE ADDRESS 
#BITO,R3 :BIT POSITION FOR LOG DRV 0 
Y: ,ASNLST ;IS THE LOG DRV UNDER TEST ? 
5 “BRANCH IF NOT 
NUL INE sNEW LINE INDICATOR 
SDEVM,R1 ;SELF SCORE ? 
SPATH “BRANCH IF IT IS 
#14.,(R2) SOVERWRITE NEG OFFSET < 14 ? 
1$ = BRANCH H IF NOT 
R5,PRINT ;REPORT EXCEPTIONS 
; COLUMN POSITION ON REPORT 
#14, /OVWPO-OVWNO{R2) iPVEMAITE POS OFFSET < 14 ? 
$ ;BRANCH IF NOT 
R5S,PRINT sREPORT EXECPTIONS 
COLUMN POSITION ON REPORT 
#12. |RDNO-OVWNO(R2) ;READ NEG OFFSET < 6 
3$ :BRANCH IF NOT 
RS,PRINT sREPORT EXCEPTIONS 
COLUMN POSITION ON REPORT 
#12. |RDPO-OVWNO(R2) sREAD POS OFFSET < 12 ? 
4$ :BRANCH IF NOT 
R5.PRINT ;REPORT EXECPTIONS 
: COLUMN POSITION ON REPORT 
LOOPS sEXIT 
#14.,(R2) 2 eae =f OFF < 14 
R5,PRINT ¢REPORT EXECPTION 
COLUNM POSITION ON REPORT 
#14. .OVWPO-OVWNOCR2) SOVERWRITE POS OFFSET < 14 
:BRANCH IF NOT 
R5,PRINT ;REPORT EXCEPTION 
;COLUMN POSITION ON REPORT 
CMTRK,R4 = LOCATE THE SELF TEST SCORE 
R = WORD INDEX 
#6,SELFO(R4) :SELF READ NEG OFFSET < 6? 
3$ ;BRANCH IF NOT 
R5,PRINT 
sREPORT EXCEPTIONS 
CMTRK,R4S ;LOCATE THE SELF TEST SCORE 
R4 sWORD INDEX 
#6,SELFO+1(R4) ;SELF READ POS OFFSET < 6 ? 
4 = BRANCH IF NOT 
RS,PRINT ;REPORT EXCEPTIONS 
; COLUMN POSITION FOR REPORT PRINTING 
R1 ; INCREASE THE LOGICAL DRIVE #4 
“ADJUST THE BIT POSIT ION 
R3 sPOINTS TO NEXT DRI 


VE 
UPDATE SCORE BOARD “~s ADDRESS 


Re 
#15. ,R1 ZALL DRIVES ARE CHECK 


wore ame ae ee Ce 


SEQ 0070 





1494 016636 
1495 016640 
1496 016644 
1497 016650 
1498 016652 
1499 016656 
1500 016660 
1501 016664 
1502 016666 
1503 016670 
1504 
1505 
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SBIYRKAKAVYLSY 
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7006 
17010 


FFELEEE 
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4 
012703 


123737 


CZRMTAO RMO5/3/2 DR CMPT TST 
GET VALUE FOR SOF TWARE 


001364 
002056 


001364 
000020 


000001 


000001 
001270 


002012 
001270 
001270 
004444 
012672 
023420 
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SWITCH REGISTER 


001372 


010550 


001272 


BH 
LOOP6: INC 


1$: ADD 


2$: MOV 


sAT THIS POINT: 


DISMNT: TYPE | 
MO 


BN 
DEASG: CLR 
MO 
2$: BIC 


XEND2: JMP 


;PRINT ROUTINE 


LOOP4 
CMTRK 
* eats 
CMTRK ,R3 


#16.,R2 
R3 


1$ 
#B1TO,R3 


BIT MAP, 


—_—- 


» SCRLF 


. SCRLF 
#IDLEX ,@RMVEC 
@RMVEC+2 


»MESG12 
.$CDW2 
DRIVE ,-(SP) 
1 

0 

»MESG13 


(SP)+,R5 
(R5) 
1$ 


$DEVM 
aoe VM,R2 


BLKADACR), a 


s;BRANCH IF NOT ALL DONE 


sNEXT TRACK 


;RESET SCORE BOARD BASE ADDRESS 
sLOGICAL DRIVE START FROM 0 
48 yall Sie 5 tear BOARD BASE ADDRESS 


ON T 
“FOR EACH TRACK, 
;ALL TRACK DONE ? 


:BRANCH IF NOT 
sBIT MAP POSITION FOR DRIVE 0 


> CR=LF 
:CR-LF 


LOGICAL DRIVE # START FROM 0 
ADDRESS OF SCORE 


“16 BYTES 


BOARD BASE ADDRESS 
INDICATE LOGICAL DRIVE O=1 


sALL TRACKS ARE DONE ? 
“WAS SCORE PRINTED ? 
‘BR IF NO 


;RESET THE INTERRUPT VECTOR 
sCLEAR THE INTERRUPT VECTOR 
: UNLOAD AND DISMOUNT MESSAGE 


s SYSTEM NAME 
sPHYSICAL DRIVE NUMBER 


sMESSAGE TYPE <CR> WHEN READY 


READ _IN 


ONE LINE 
;LOCATE THE READ IN LINE 
RETURN ? 


: CARRIAGE 
IF NO 
‘LOGICAL DRIVE 


NUMBER 
T MAP OF ASSIGNED DRIVE 
71S THE Witte = UNDER TEST ? 


: BRANCH 

So, Ad THE BIT MAP FOR 

:NEXT DRIVE 

TOGPING THE LOGICAL DRIVE # 


ING ,UNTIL THE 
>CLEAR THE ASSIGNED 
NO MORE DRIVES 


Tie DRIVE LOCATED 


BRANCH IF 
: INCREMENT THE LOGICAL DRIVE #4 
;UPDATE SYSTEM BLOCK ADDRESS 


SEOP ;END OF PASS 


:SYSTEM BLOCK ADDRESS 
;JUMP TO TEST 5 FOR OTHER DRIVE 


SEQ 0071 


r 





RMTAO 
VALUE 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 017052 
017052 
017054 
Ba ey 
1574 017062 
1575 017066 
157 
1577 017670 
1578 017074 
1579 017100 
1580 017104 
1581 017110 
1582 017112 
1583 017113 
1584 017114 
1585 017120 
1586 017124 
1587 017130 
1588 017134 
1589 017140 
1590 017144 
1591 017152 
1592 017160 
1593 017164 
1594 017166 
1595 017172 
017176 
1596 017200 
1597 017204 
1598 017210 
1599 017212 
1600 017216 
1601 017222 
1602 017226 
1603 017230 
1604 017232 
1605 017240 





010146 


RMOS/3/2 DR CMPT TST 
FOR SOFTWARE SWITCH REGISTER 


a i ee ee i le 
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001342 
001376 


;NAME PRINT 
;PRINT EXCEPTIONS FOR TEST SCORE 


;PARAMETER USED 
NUL INE 0 A NEW LINE TO PRINT 
1 = 4 COLUNM NUMBER TO PRINT THE EXCEPTION MARK 


; SEC =0 FIRST EXCEPTION DETECTED 
; BADSEC = <1 NOT FIRST EXCEPTION (DON'T PRINT THE TITLE) 
; CALL 
; JSR R5,PRINT 
; NUMBER COLUMN NUMBER 
; RET 
; R1 = LOGICAL DRIVE &@ 
; $SDEVM = LOGICAL DRIVE UNDER TEST 
; R3 = BIT POSITION OF LOGICAL DRIVE IN R1 
PRINT: 
MOV R1,-(SP) ;2PUSH R1 ON STACK 
MOV R2,-(SP) 7zPUSH R2 ON STACK 
MOV R3,-(SP) 7zPUSH R3 ON STACK 
MOV R4,-(SP) 7zPUSH R4& ON STACK 
TST SEC sFIRST EXCEPTION 
BM] ; CH IF NOT,DON'T HAVE TO PRINT 
TYPE , SCRLF ; CRLF 
TYPE -MESG16 ;SCORES FOR DRIVE -- 
TYPE ,SCDW2 :SYSTEM NAME 
MOV DRIVE ,-(SP) ; TYPE THE PHYSICAL DRIVE #4 
TYPOS 
-BYTE 1 
TYPE ,SCRLF :CR-LF 


; CR-LF 
‘SUB TITLE 1 
: SUB TITLE 2 


TYPE , SCRLF ; CR-LF 

MOV #~1 ,BADSEC RESET THE oN g's FLAG 
MOV #1 ,FAULT :NOT COMPA TIBLE FLAG 

TST NUL INE sNEW LINE ? 

BNE 5$ ;BRANCH IF NOT 

TYPE , SCRLF ; CR-LF 

MOV CMTRK,-(SP) 7; SAVE CMTRK FOR TYPEOUT 
TYPDS +260 TYPE~-DECIMAL ASCII WITH SIGN 
TYPE , TAB ; TYPE *‘TAB’’ CHARACTER 

CMPB SDEVM,R1 :SCORE FOR SDEVM ITSELF ? 
BNE BRANCH IF NOT 


:TYPE 3 BLANKS 
TYPE o SELF X :ME SSAGE "SELF ° 
TYPE , TAB TAB 
BR 4$ NEXT STEP 
ASL R1 sLOCATE THE SYS HISTORY FILE 
MOV BLKADR(R1),3$  ;LOCATE THE Sy STEN NAME AND DRIVE # 
ASR R1 RESTORE DRIVE # 


SEQ 0072 


Se Q 
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DAA AAAAAAO 
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ADD #SSYSNM, 3$ :LOCATE THE SYSTEM NAME AND DRIVE # 
TYPE ,BLNKS3 : TYPE 3 BLANKS 
TYPE ;TYPE THE SYSTEM AND DRIVE 
3$: .WORD 0 ADDRESS FOR TYPING MESSAGE 
TYPE TAB TYPE TAB 
4$: MOV #1, NULINE : INDICATE PRINTER STOPS AT COULMW 1 
5$: MOV (R5)+,R4 :RETRIEVE THE DESIRED COLUMN # FROM 
: CALLING ROUTINE 
6$: CMP R4 NUL INE :ON THE RIGHT COLUMN ? 
BLO ed : IF LOW NOT PRINT 
BEQ 7$ =BRANCH IF LOCATED 
TYPE ,TAB sADVANCE TO NEXT COLUMN 
INC NUL INE : INCREMENT COLUMN CTR 
BR 6$ ; CHECK AGAIN 
7$: TYPE |BLNKS4 “TYPE 4 BLANKS 
TYPE |MARKX :THE EXCEPTION MARK ‘'s 0° 
- INC NUL INE “NEXT COLUMN 
MOV (SP) +,R4 ::POP STACK INTO R4 
MOV (SP) +_R3 ::POP STACK INTO R3 
MOV (SP) +_R2 ::POP STACK INTO R2 
MOV (SP) +_R1 ::POP STACK INTO R1 
RTS R5 “EXIT 
IDLEX: NOP :RESET ALL RH VECTOR FOR MUUNT AND DISMOUNT 
RT] sEXIT 


sPROCESS THE ORDER TERMINATION 


PROCES: MOVB _— (RO) ,UNIT :DRIVE NUMBER FOR ANY ERROR MESSAGES 
TST $TATUS (RO) :SEE IF DRIVER SIGNALED AN ERROR 
BMI ERPROC IF ERROR 
BIT #81715. $RMCS1 (ROD :SEE IF "SC" SET 
BEQ 1 ‘BR IF NOT SET 
BIT #81714, $RMCS1(RO) :SEE IF ‘TRE’ SET 
BNE ERPR 
BIT #81714, $RMDS(RO) :SEE IF "ERR" SET 
BNE ERPROC IF SET 
1$: JSR PC, CKERR “NO ERROR, CHECK ERROR BITS ANYWAY 
JSR PC, CKBUS :NO ERROR, CHECK BUS ADDR & WC 
JSR C,RMINIT - INITIALIZE THE SUB SYSTEM 
MOV #-1, SAVEFG :CLEAR THE SAVE FLAG 
MOV #-1,SEEKFG >SET THE NOT IMP FLAG 
2$: RTS PC > RETURN 
;ORDER TERMINATED WITH AN ERROR - PROCESS THE ERROR 
ERPROC: BIT #81107. STATUS(RO) ;DONE BIT SET 
BEQ ERPRC1 IF ORDER SIDN’ T COMPLETE NORMALLY 
JMP BONE sPROCESS ERROR WITH ‘DONE’ BIT SET 


;PROCESS ORDER COMPLETION WITH ‘ERROR’ & ‘DONE NOT’ BITS 
ERPRC1: BIT #81112, $TATUS(RO) : SEE IF DRIVE WAS UNSAFE 
BIT #B1T11,$TATUS(RO) ;PARITY ERRO® OCCURRED 


SEQ 0073 
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CZRMTAQ RMOS/3/2 DR CMPT TST 
GET VALUE FOR SOF 
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SWITCH REGISTER 


000016 
000016 
000016 
000016 


000016 
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BNE UCPAR F IT DID 
BIT #81110. STATUS(ROS FATAL PARITY ERROR? 
BNE PAR -BR IF THER RE IS ONE 
BIT WBiT09. STATUS(RO) ; TIMEOUT? 
BNE WTIM :BR IF YES 
BIT We1116 81701, + STATUS (RO) :DRIVE WENT OFFLINE ? 
BIT wBITe, STATUS(RO) "PORT REQUEST TIME OUT ? 
BNE :BR IF IT DID 
RTS _ sERROR. RETURN 
:DRIVE IS PERSISTENTLY UNSAFE 


PUNSAF : 
DISPLY ,EMI2 
JMP DUMP 2 
;UNCORRECTABLE MASSBUS PARITY ERROR OCCURRED 
UCPAR 
DISPLY ,EM10 
JMP DUMP2 
; FATAL’ MASSBUS PARITY ERROR OCCURRED 
FALPAR: 
DISPLY ,EM11 
JMP DUMP2 
;SOFTWARE TIMEOUT OCCURRED 
SWTIM: 
DISPLY ,EM13 
JMP DUMP 2 
s;DRIVE WENT OFFLINE 


OFLIN 
DISPLY Pople 


JMP UMP2 
sPORT REQUEST TIMEOUT ERROR 


PRTIM: 
DIiSPLY ,EM15 

DUMP2: TYPE - SCRLF ; CRLF 
TYPE oXFATL 
TYPE - SCRLF ; CR-LF 
TYPE TX 


; JUMP TO RESTART 
sPROCESS ORDER COMPLETION WITH ‘ERROR’ & ‘DONE’ BITS SET 
DONE : +4 SOI 10S BITES. RIP NT OCCURRED 


BE 
JMP UNSAF REPORT UNSAFE 

BIT #B1T14, SRMCS2(ROS :1S "wCE' SET ? 
BEQ +6 :BRANCH IF NOT SET 


SEQ 0074 
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020210 
040000 
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000934 


000034 


000034 


000034 


000034 


000034 


000034 
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000034 
000032 


000034 


000062 
000062 


WCKER WRITE CHECK ERROR 
ter ,SRMDS (RO) ; in if seh 


ET 

TRF PROCESS 'TRE' 

we1i08, ame g"HERC’ SET? 
28 BR F NOT 


RCER PROCESS ‘HCRC" 
x be ,SRMERT (ROS; irs SET? 


NOT SET 
CKF HECK FORMAT ERROR 
xine /SRHERI (ROS g‘HCE’ S SET? 


NOT SET 
CKH CHECK "HCE" ERROR 
WeiTi3, Te :'OPI' SET? 
a :BR IF NOT SET 


OPIE sREPORT ‘OP 
"BITS, SRMER1(RO) ;‘"PAR® SET? 
+6 ;BR IF NOT SET 


PARER REPORT 
#B1TS,$RMER1(RO)- Le SET? 
> -BR IF NOT SET 


WCFE REPORT 
we1T10, SRMER1(ROS :"IAE* SET? 
+6 :BR IF NO 


IAEER ; REPORT 
#B1T11,$RMER1(RO) ;"WLE’ SET? 
. +6 ;BR IF NOT SET 
WLEER REPORT ‘WLE’ 
#BIT9, SRMER1 (RO) ” ;"AOQE' SET? 
F NOT SET 
lhe , SRMDS (RO) y LST° SET? 


sBR IF NOT SET 
PC -"AOE' & 'LST' SET, EXIT 
#B81T12,$RMER1(RO) :SEE IF ‘DTE* SET 
+6 :BR IF NOT 


DTEER sREPORT ‘DTE* ERROR 
SRMER1 (RO) ; SEE ; *DCK* SET 
+6 BR F NOT 


DCKER CESS ‘DCK‘ 
4B17T14!BIT13, sRMER? (ROD :*SKI' OR ‘OCYL' SET 


F 
#B1T15, SRMER2(RO} :BAD SPOT ? 
4$ ; BRANCH 


IF SO 
DRVER ;REPORT ERROR 
SKIER :REPORT DRIVE ERROR 
. SCRLF :CR-LF 
MESG11 . 
7 
10 
11 
12 
eHALTX 
@RSTART ; JUMP TO RESTART 


sPROCESS DATA (*DCK*) CHECK ERROR 
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CZRMTAO RMOS/3/2 DR CMPT TST 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
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DISPLY ,EM21 
JMP DUMP 


sWRITE CHECK ERROR PROCESSING 


WCKER: 
ie cident 


BNE 

DISPLY ,EM23 

JMP DUMP 
1$: DISPLY ,EM22 

JMP DUMP 
;REPORT ‘HCRC’ ERROR 
HCRCER: 

DISPLY ,EM20 

JMP DUMP 
;REPORT DRIVE ERROR 
DRVER: 

DISPLY ,EM30 

JMP DUMP 
s;PROCESS FORMAT ('FER') ERROR 
CKFMT 


DISPLY ,EM24 
JMP DUMP 


sPROCESS HEADER COMPARE (‘HCE’) ERROR 


CKHCE: 
DISPLY ,EM25 


JMP 
sPOSSIBLE POSITIONING ERROR 
POSER: DISPLY ,EM51 

JMP DUMP 
sREPORT OPI" ERROR 
OPIER: 

DISPLY ,EM31 

JMP DUMP 
sREPORT *DTE* ERROR 


DTEER: 
DISPLY ,EM32 
JMP DUMP 


sREPORT ‘PAR’ ERROR 


PARER: 
DISPLY ,EM33 
JMP DUMP 


;DCK BIT SET ? 
sBRANCH IF SET 


SEQ 0076 


Tw 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0077 


1830 
1831 :REPORT "IAE' ERROR 
1832 
1833 020340 IAEER: 
1834 020340 037620 DISPLY ,EM35 
1835 020344 020440 JMP DUMP 
1837 :REPORT WLE ERROR 
1838 
1839 020350 WLEER: 
1840 020350 037656 DISPLY ,EM36 
1841 020440 JMP DUMP 
a REPORT FORMAT ERROR 
1845 020360 FMTER: 
1846 020360 037267 DISPLY ,EM26 
1847 020364 020440 JMP DUMP 
1849 :REPORT HEADER COMPARE ERROR 
1851 020370 104414 037314 HCEER: DISPLY ,EM27 
1852 020374 000137 020440 JMP DUMP 
1854 :PROCESS CONTROL/INTERFACE TRANSFER ERROR 
1856 020400 TRFER: 
1857 020400 104414 037771 DISPLY .EM4O 
1858 020404 000137 020440 JMP DUMP 
1860 :PROCESS "SKI" OR 'OCYL' 
1862 020410 SKIER: 
1863 020410 104414 040441 DISPLY ,EMSO 
1864 020414 000137 020440 JMP DUMP 
1866 ;REPORT WRITE CLOCK FAILURE 
1868 020420 WCFER: 
1869 020420 104414 037556 DISPLY ,EM34 
1870 020424 000137 020440 JMP DUMP 
1872 ;REPORT DRIVE UNSAFE ERROR 
1874 020430 UNSAF : 
1875 020430 104414 040542 DISPLY .EM60 
1876 020434 000137 020440 JMP DUMP 
1878 020440 DUMP : 
020440 104007 EMT 7 
1879 020442 104010 EMT 10 
1880 020444 104011 EMT 11 
1881 0 104012 EMT 12 
1883 020450 004737 027514 JSR PC .RMINIT :CLEAR THE SUB-SYSTEM 
1884 020454 012737 177777 027436 MOV #~-1, SAVEFG 
1885 020462 012737 177777 027440 MOV #~1,SEEKFG 


ae ee ew 


CZRMTAO RMO5/3/2 DR CMPT TST 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
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RTS 


PC 


>CKECK ERROR BITS IN THE RH/RM REGISTERS 


000020 CKERR: BIT #60000, $RMCS1(RO) :SEE IF "TRE* OR "MCPE" 
000030 BIT #177400 , SRMCS2(RO) ; ERROR BITS IN CS2 / 
TST SRMER1 (RO) “ANY ERROR IN ER1 
BNE “YES 
TST SRMER2 (RO) “ANY ERROR IN ER2 
BEQ $ :BRANCH IF NO ERROR 
1$: DISPLY ,EM44 
JMP DUMP : TYPE ALL REGISTERS 
2$: RTS PC 
;CHECK BUS ADDRESS REGISTER AND WORD COUNT REGISTER 
CKBUS: TST SRMWC (RO) :WORD COUNT = 0 
BNE 1$ ;NO 
MOV SWRDM(RO),-(SP) :WORD LENGTH 
NEG (SP) :GET THE POSITIVE NUMBER OF WORD COUNT 
ASL (SP) :BYTE COUNT 
ADD $BUF (RO), (SP) 
CMP (SP) +, $RMBA (RO) 
BEQ 2$ 
1$: DISPLY .EM41 
JMP DUMP : TYPE ALL REGISTERS 
2s: RTS PC 
;ROUTINE TO DISPLAY THE SECTOR WHICH GAVE THE HARD ERROR 
PRTIBAD: TYPE  .S$CRLF = CR-LF 
TYPE {MESG19 
TYPE $CRLF = CR-LF 
MOV $RMBA (RO) .R1 :PUT THE END ADDRESS INTO R1 
MOV SuRDM (RO) ~(SP) :FIND THE BEGINNING OF THE SECTOR 
NEG (SP :GET THE POSITIVE NUMBER OF WORD COUNT 
ADD SFINC (ROD, (SP) ;SUBTRACT THE WORDS NOT TRANSFERED 
CLR (SP) :MAKE THE UPPER DIVIDEND 0 
MOV #256..-(SP) :DIVDE THE WORDS TRANSFERED BY THE SECTOR SIZE 
JSR PC, LINKDV :DIVIDE 
TST (SP) “REMANDER = 
BEQ 1$ :BR IF IT IS - COMPLETE SECTOR TRANSFERED 
ASL (SP) =CONVERT THE RESIDUAL SECTOR SIZE INTO BYTE COUNT 
SUB (SP) .R1 > SUBTRACT IT FROM THE END ADDRESS 
BR FINISH THE TING 
1$: SUB #1000,R1 ; SUBTRACT FULL SECTOR SIZE FROM END ADDR 
2$: ADD #4,SP sRESTORE THE STACK POINTER 
3$: MOV #7,R2 :R2 CONTAINS THE WORDS/LINE COUNT 
4$: CMP R1,$RMBA(RO)  :PRINTED ALL THE SECT 
BEQ $° :BR IF ALL PRINTED 
DISPLY  |BLNKS1 -TYPE 1 BLANK 
MOV (R1)+,=-(SP) “PUT THE DATA | ON THE STACK 
JSR PC,LINOCT “TYPE THE DAT 
CMP rf, (R1) “END OF FILE > 
BEQ “BRANCH IF SO 


em ae eee 


SEQ 0078 | 
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T VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0079 | 
1943 020722 90530 DEC R2 :DECREMENT THE HORIZONTAL COUNT 
1944 020724 00136 BNE 4$ :BR IF NOT AT THE END OF THE LINE 
1945 020726 104414 001207 DISPLY ,$CRLF *CR=LF 
1946 020732 000756 BR $$ ‘RESTORE THE WORDS/LINE COUNT 
1947 020734 104414 091207 S$: DISPLY ,$CRLF “PRINT WHAT REMAINS IN THE BUFFER 

| 1948 0207460 000207 6$: RTS PC *RETURN 
1949 

1984 
1952 020742 104412 FILBUF: SAVREG :SAVE THE REGISTERS 
1953 020744 016001 000006 MOV SBUF (RO) .R1 “BUFFER ADDRESS 
1954 020750 016002 000004 MOV SWRDM(RO),R2 = =POSITIVE WORD COUNT 
1955 020754 005402 NEG R2 : 

1956 020756 012705 005262 MOV #STNDAT,RS :PATTERN ADDRESS 

1957 020762 012702 900020 MOV #20,R3 :PATTERN COUNT 

1958 020766 012521 3$: MOV (R5)+, (R1)+4 :MOVE THE PATTERN INTO THE BUFFER 
1959 020770 005302 DEC R2 =DECREMENT THE WORD COUNT 

1960 020772 003407 BLE 4$ :BR IF DONE (WORD COUNT = 0) 

1961 020774 005303 DEC R3 : DECREMENT THE PATTERN. COUNT 

1962 020776 001373 BNE 3$ :BR IF MORE PATTERN 

1963 021000 012703 000020 MOV #20,R3 ;RESTORE PATTERN COUNT 

1964 021004 012705 005262 MOV #STNDAT.RS -RESTORE THE ADDRESS 

1965 021010 000766 BR $ “CONTINUE DISTRIBUTING THE PATTERN 
1966 021012 104413 4$: RESREG “RESTORE THE REGISTERS 

1967 021014 000207 RTS PC RETURN 

1969 
1970 .SBTTL ERROR MESSAGE GENERATION ROUTINES 
1972 :PRINT LINE 1 OF ERROR MESSAGE: 

Sond > "HH:MM:SS'° 

1975 021016 032777 002000 160130 LINE1: BIT #SW10,aSWR : SWITCH 10 SET ? 
1976 021024 901402 BEQ 1$ F NOT 
1977 021026 104401 001202 TYPE ,$BELL “RING THE BELL 
1978 021032 032777 020000 160114 1$: BIT #SW13,aSWR : INHIBIT TYPEOUT ? 
1979 021040 001403 BEQ 2$ “BR IF NOT 
1980 021042 104414 001207 DISPLY ,.$CRLF *CR=LF 
1981 021046 000404 BR 3$ “EXIT 
1982 021050 004737 021330 2$: JSR PC, STIME -TYPE THE TIME 
1983 021054 104414 042330 DISPLY ,BLNKS1 *TYPE 1 BLANK 
1984 021060 000207 3$: RTS PC “RETURN & TYPE DESCRIPTION 
1986 :OCTAL TYPEOUT ROUTINE 
1987 :CA LL: 

1988 : MOV NUM, - (SP) :PUT THE NUMBER ON THE STACK 
1989 JSR PC,LINOCT 
1990 : RETURN 
1992 021062 016646 000002 LINOCT: MOV 2(SP) ,-(SP) :PUT NUMBER IN PROPER LOCATION ON STACK 
1993 021066 004737 022624 JSR PC, $SB20 :CONVERT THE NUMBER TO OCTAL 
1994 021072 012637 021106 MoV (SP)+.1$ :GET THE ADDRESS OF THE ASCII STRING 
1995 021076 062737 000005 021106 ADD #5.,1$ sADDRESS THE LAST 6 ASCII DIGITS 
1996 021104 104414 DISPLY “TYPE IT 
1997 021106 000000 1$: .WORD 0 “ADDRESS 
1998 021110 012616 MOV (SP)+, (SP) “CORRECT THE STACK 
1999 021112 000207 RTS PC * RE TURN 
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CZRMTAO RMOS/3/2 DR CMPT TST 
ERROR MESSAGE GENERATION ROUTINES 
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160064 
160054 


160014 


SEQ 0080 


sROUTINE TO CONVERT THE INPUT NUMBER TO DECIMAL AND TYPE IT WITH 
CALL: ZERO SUPRESSION 


LINDEC: 


NUM, = (SP) sPUT THE NUMBER ON THE STACK 
PC,LINDEC 
2(SP) ,-(SP) ;SET UP STACK FOR CONVERT 
PC, $SB2D ;CONVERT IT TO DECIMAL 
PC ,SSUPRS sTYPE IT (WITH LEADING ZEROS SUPRESSED) 


(SP)+, » (SP) :RESTORE STACK POINTER 


-SBTTL GENERAL SUPPORT SUBROUTINES 


sROUTINE TO CHECK FOR KW11-L OR KW11-P CLOCKS 


CKCLK: 


CKCLK1: 


CKCLK2: 


1$: 


CKCLK3: 


MOV 


#-1,CLKFLG sCLEAR CLOCK AVAILABILITY FLAG 
#-1 ,PCLOCK sCLEAR KW11-P CLOCK AVAILABILITY FLAG 


#CKCLK1,ERRVEC ;SET UP VECTOR FOR CLOCK CHECK 
AAERRVEC +2 W PSW 

@$LKCSR : CHECK FOR KW11-P 

CLKFLG :SET CLOCK witecg ey FLAG 
PCLOCK :SET KW11-P CLOCK FLAG 

SLPVEC.R1 :KW11-P VECTOR ADDRESS 

ACLOCK, (R1)+ :SET UP KW11-P VECTOR 

#300, (R1) :PSW = PRI 6 

#1667. -@SLKCSB sLOAD COUNTER BUFFER WITH 16.67 
4S ee KCSR sSET CLOCK = CNT UP, 10US. CONT INT 


#4 ,SP sRESTORE THE STACK POINTER 
#CKCLK2, »@HERRVEC ;CHANGE ERROR VECTOR TO CHECK FOR KW11=L 


CLKFLG SSET CLOCK FLAG 


SLLVEC,R1 *KW11T=L VECTOR ADDRESS 
MCLOCK, (R1)+ > SET UP KW11-L VECTOR 

#300, (R1) sPSW - PRI 6 

#100, a$LKS :SET KW11-L INTERRUPT 

CKCLK3 


#4 ,SP oy ai THE STACK POINTER 
e-NEDCLK P OR L CLOCK MUST BE . SYSTEM’ 
42 ZUNDER MONITOR CONTROL ? 


1$ :BR IF NOT 
@RSTART ; JUMP TO RESTART 
+ Seuttaitaaias sRESTORE THE ERROR VECTOR 


sROUTINE TO TYPE THE TIME 
rls 
» SCRLF 


STIME: 


TST 
BNE 
TYPE 


sCLOCK ON THE SYSTEM ? 
:BR IF NOT 
; CR-LF 





CZRMTAO RMOS/3/2 DR CMPT TST 
GENERAL SUPPORT SUBROUTINES 
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MOV HOUR, - (SP) 
JSR PC, $SB2D 

JSR R5REPLZ 
.WORD 2 

TYPE —_, COLON 

MOV MINUTE, =(SP) 
JSR PC, $SB2D 
JSR R5.REPLZ 
.WORD 2 

TYPE , COLON 

MOV SECOND, -(SP) 


JSR PC, $SB2D 


sPUT ‘HOURS’ ON THE STACK 
ll TO DECIMAL 


: TYPE 2 DIGITS 


“PUT "MINUTES' ON THE STACK 
ee TO DECIMAL 


TY 
:TYPE 2 DIGITS 


“PUT SECONDS ON THE STACK 
:CONVERT TO DECIMAL 


JSR R5,REPLZ ; 
. WORD sTYPE 2 DIGITS 
1$: RTS PC 
;CLOCK HANDLER ROUTINE 
CLOCK: DEC SIXTEE Ts THE 1/60 SECOND COUNTER 
BNE 1$ :BR IF A SECOND NOT COUNTED 
001352 MOV HZ,SIXTEE sRESTORE THE VALUE 
INC SECOND =COUNT THE SECOND 
001350 CMP #60. .SECOND sAT MAXIMUM ? 
BNE 1$ ;BR IF NOT 
CLR SECOND ;CLEAR THE SECOND'S COUNTER 
INC MINUTE = COUNT THE MINUTE 
001346 CMP #60. .MINUTE “AT MAXIMUM ? 
BNE 1$ :BR IF NOT 
CLR MINUTE ;CLEAR THE MINUTE’S COUNTER 
INC HOUR ;COUNT THE HOURS 
001344 CMP #999. HOUR :AT MAXIMUM 
BHIS 1$ :BR IF NOT 
CLR HOUR :CLEAR THE HOURS 
1$: MOV #17.,~(SP) :17 MS ON THE STACK 
JSR PC, RMTMR =DRIVER TIMER ROUTINE 
23: RTI 
coe DECODE ROUTINE 
; MOV #~-1,CFLAG :*CFLAG’ IS NORMALLY SET BY THE TTY SERVICE 
; sROUTINE IN INTERRUPT MODE 
; JSR PC,KSR 
: RE TURN1 :SYSTEM BUSY RETURN 
: RE TURN2 ;RETURN AFTER KEYBOARD SERVICED 
KSR: SAVREG ;SAVE THE REGISTERS 
177776 MOV #PR4 PS 3SET PRIORITY TO 4 
CLR CFLAG :ClEAR THE ‘CONTROL C° FLAG 
JSR PC .STIME ‘TY YPE THE TIME 
TST a$T AR ANY GARBAGE o THE TTY BUFFER 
TST CFLAG * CHECK THE CONTROL C FLAG 
BNE 7$ “EXIT IF "CONTROL C* ENTERE 
4 ;DUMP CODING FOR LATER USE 8/8/77 
73: RESREG sRESTORE RO =- RS 
ADD #2, (SP) ; INCREMENT THE RETURN ADDRESS 
TST a$TkKS CLEAR THE TTY BUFFER 





Se ee ee ee e+ ————_ 


SEQ 0081 


CZRMTAQ RMO5S/3/2 DR CMPT TST 
GENERAL SUPPORT SUBROUTINES 


—_— 3 3 Wd dd 


MNMONMNNONNoNoNory 
dd ad od od wd 
Pe Ney 

FWN—$OOONOUS 


021620 


2130 021650 
2131 aS ices 
021654 
021656 
021660 
2132 021662 
2133 





052777 
005037 
000207 


010146 
0 


012746 
0 


990100 
177776 


000002 
000020 
000002 


000026 


000030 
000032 


021732 
000030 


000032 


000040 


000002 
000002 


000002 





me a ee — - _ — 


Ez 
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B'S #B1T06,a$TKS ;SET TTY INTERRUPT ENABLE 
CLR PS ;SET PRIORITY BACK TO ZERO 
RTS PC RETURN 


ae TO CLEAR THE DPB FOR THE ASSIGNED DRIVE 


CLRDPB: 


1$: 


LINKDV: 


-DPID: 


MOV #DPB,RO 
JSR PC, CLRDPB 


;DPB ADDRESS 


RE TURN 
MOV R1,-(SP) ;sPUSH R1 ON STACK 
MOV R3,-(SP) ;sPUSH R3 ON STACK 


MOV R5,-(SP) ;sPUSH R5 ON STACK 

MOV RO, :GET THE DPB ADDRE 

ADD #2 ,R4 sADDRESS OF FIRST LOCN vf tha CLEARED 
MOV #SEMTAB~2 ,R3 ;NUMBER OF LOCATIONS 

CLR (R4)+ sCLEAR THE STORAGE LOCATION 

oe + Sa ; DECREMENT ng BYTE COUNT 


MOV (SP)+,R5 
MOV (SP) +,R4 
MOV (SP) +,R3 


MOV (SP)+,R1 :zPOP STACK INTO R1 


RTS PC RETURN 

SAVREG :STORE RO = R5 

MOV 26(SP) ,R5 :DIVISOR 

CLR R4 sOTHER DIVISOR WORD 

MOV 30(SP) ,R2 sUPPER DIVIDEND WORD 

MOV 32(SP) ,R3 sLOWER DIVIDEND WORD 

a 7 sCLEAR OTHER DIVIDEND REGISTERS 


JSR PC,M.DPID 
MOV R1,30(SP) 


:GO TO THE DIVIDE ROUTINE 
sREMAINDER ON THE STACK 


MOV R3,32(SP) sQUOTIENT ON THE STACK 
RESREG ;RESTORE RO - R5 

MOV (SP) +, (SP) sMOVE RETURN UP THE STACK 
RTS PC 

DIVISION {hes ae a 

RO=-R1-R2-R3=D1VIDEND 

R4-R5=DIV TS0R 


RO-R1=REMAINDER AFTER DIVI 
R2-R35=QUOTIENT AFTER DIVIS 
ENTER WITH JSR PC,M.DPID 


MOV #40 ,-(SP) :COUNTER FOR DIVISION CYCLES 


SION 
ION 


MOV R4,-(SP) sHIGH ORDER 

MOV R5,-(SP) sLOW ORDER DIVISOR TO THE STACK 
NEG 2(S :FORM NEGATIV 

NEG aSP VERSION OF THE DIVISOR 

SBC 2 (SP) 

ADD aSP,R1 

ADC RO sPERFORM THE INITIAL SUBTRACTION 


ADD 2(SP) ,RO 


A ee 


SEQ 0082 |! 


CZRMTAO RMOS/3/2 DR CMPT TST 
GENERAL SUPPORT 


2194 022066 
2195 aSenoe 
2196 022074 
Abad assure 
198 100 


2220 022146 


SUBROUT 


INES 


000002 


000004 


000006 


000010 


000006 


000012 


000006 
000060 
000040 


M.DP4O: 


M.DP41: 


M.DP42: 


M.DP44: 


M.DP5O0: 


2$: 








WORD 


ewe ee Cl 


- 
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M.DP50 3; IF CARRY THEN OVERFLOW HAS OCCURRED 
~ gt THIS IS A LONGER LASTING CARRY BIT 
R2 

RY] 

RO 

asSP ; TEST ‘“‘CARRY’’ INDICATOR 
M.DP41 3 IF NO ‘CARRY’ THEN ADD ELSE SUBTRACT 
aSP ;CLEAR UP FOR NEXT TIME 
2(SP),R1 

RO ;ADD ~(DIVISOR) 

aSP ; “SET ° ‘CARRY’ 

4(SP) ,RO;<- 

M.DP42 

R5,R1 

RO ;ADD +(DIVISOR) 

aSP . § sSET ‘‘CARRY'' 

R4,RO ;<- 

asP 3SET “‘CARRY'' 

asP ;TEST THE UPDATE INDICATOR 
+4 :-> <IF ZERO FORGET IT 

R3 7 gi =NO CARRY POSSIBLE HERE 
6(SP) “<= ;DECREMENT COUNTER 

— = BRANCH IF MORE TO DO 
M.DP44 

R5,R1 

RO 

R4,RO 

R3 

#10,SP ;ADJUST STACK BY 4 WORDS 
PC 

#6,SP 

PC 


oe TO REPLACE LEADING ZEROS IN A NUMERIC STRING WITH SPACES 


rSonea :ADDRESS OF NUMBER (IN ASCII) 
:'N' IS NUMBER OF DIGITS TO BE TYPED 
RO.-(SP) ;SAVE RO 
#10. ,-(SP) MUM NUMBER OF DIGITS TO BE TYPED 
(R5)+, (SP) :SUBTACT DIGITS TO FORM INDEX 
6(SP). :ADDRESS OF NUMBER TO RO 
#°0, (RO) :BYTE EQUAL TO ASCII ‘O° ? 
2$ :BR IF NOT 
#40, (RO) :REPLACE THE ZERO WITH A SPACE 
0 : INCREMENT THE BYTE ADDRESS 


1$ :GO BACK AND LOOK FOR MORE LEADING ZEROS 
(RO) ;SEE IF ZERO BYTE TERMINATOR 

3$ :BR IF NOT 

RO ;BACKUP STRING POINTER 


ee a eee — ———. »> = oe =~ 


SEQ 0083 





2221 022150 


5 

2236 022200 
2237 022202 
2238 206 
2239 022210 


2248 022236 
2249 
2250 
2251 
2252 022240 


112710 
0 7 


013746 
012737 
012537 

37 


032777 
001002 


000137 
062716 
000002 


CZRMTAO RMOS/3/2 DR CMPT TST 
GENERAL SUPPORT SUBROUTINES 


000060 MO 
000006 022170 38: MOV 


022170 


000004 
000060 


022230 


177776 
000200 
022262 
024116 


020000 
024116 
000002 


177776 


156660 


4$: . WORD 


; TYPE NUMERICAL 


; CALL 


; JSR 
$SSUPRS: MOV 
MO 


V 
1$: TSTB 


2$: DEC 


3$: 


RTS 


sROUTINE TO TYPE AT PRIORITY 4 


TYPRI4: MOV 
MOV 
MOV 


> A eee | ee ee ee 


G 7 
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#°0, (RO) 
6(SP) ,4$ 
(SP)+,4$ 
0 
(SP)+,RO 

7 +, (SP) 


SEQ 0084 
PUT A ZERO BACK IN 


sPUT ADDRESS IN LOCATION FOR TYPEOUT 
; BEGINNING OF — DIGITS 


‘ ORE 
sMOVE RETURN ADDRESS 
TURN 


ASCIZ STRING SUPRESS LEADING ZEROS 


#NUMADR , = (SP) 


PC, $SUPRS 
RO,-(SP) 

4(SP) ,RO 

(RO) 


#°0O,(RO)+ 


>) 


(SP)+,RO 
(SP)+, (SP) 
PC 


AAPS ,- (SP) 
#200, a4PS 
(R5)+,1$ 
9s 


R5 


sROUTINE TO TYPE ERRORS 
> CALL 


JSR 
1$: . 
RTS 
: DISPLY 
SDSPLY: BIT 
BNE 
JMP 
1$: ADD 
RT] 


;THIS ROUTINE IS USED 
ASCII CHARACTER IS A 


: JSR 
s T 


1 R5, 
RE TURN2 


seiTtS Sam 
$TYPE 

#2, (SP) 

T 
D 
R1 
0 


#ADR,R 
CK.OCT 


sFIRST ADDRESS OF ASCIZ STRING 


; SAVE RO 

:PICKUP THE “ents 

; TERMINA TOR ? 

:BR IF YES 

:I1S THIS AN ASCII ‘0° ? 
:BR IF YES 

sBACKUP BY ‘1° 

sSAVE FOR TYPING 


:GO PRINT 
:ASCIZ — GOES HERE 


RESTORE THE STACK 
; RETURN 


sSAVE THE PRESENT STATUS 

; CHANGE THE PRIORITY TO 4 
sMESSAGE ADDRESS 

: TYPE THE MESSAGE 

tt apa ADDRESS GOES HERE 


sMUST DEFINED IN ‘TRAP’ TABLE 
sADDRESS OF MESSAGE 


Fg eae TYPEOUT ? 


;TYPE THE MESSAGE 
: INCREMENT THE RETURN 
RETURN 


O CHECK IF AN 
IGIT BETWEEN 0 AND 7. 


cet OF ASCII CHARACTER 
sCHECK THE CHARACTER 
CHARACTER IS NOT BETWEEN 0-7 
; CHARACTER IS IN R2 AS A 


meme ee eee 





CZRMTAQ RMO5S/3/2 DR CMPT TST 
GENERAL SUPPORT SUBROUTINES 


2289 


2564 


23335 022426 
2334 022430 


WOnrM—Nw— 


000060 
000067 


177770 


000060 
000071 


000060 


000054 
000056 
022336 
022310 


CK.OCT: 


1$: 


CMPB 
0 





——--— = 


ee 


(R1) ,4°0 
(R1) ,A'7 
1$ 


H 7 
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sOCTAL DIGIT 

LESS THAN ZERO? 

YES == BRANCH 

: GREATER nee SEVEN? 


;GET THE CHARACTER 
:STRIP AWAY THE ASCII 

;ADJUST FOR RETURN 
ETURN 


;THIS ROUTINE IS USED TO CHECK AN ASCII rye 
ZAND DETERMINE IF IT IS A DIGIT BETWEEN 0 AND 


o 
. 
° 
ca 
° 
° 
° 
o 
° 
9 


CK.DEC: 


1$: 


#ADR ,R1 


R5,CK.DEC 


(R1) ,4°O 
1$ 
(R1) ,4°9 


sADDRESS OF ASCII CHARACTER 
>CHECK THE CHARACTER 

:NOT BETWEEN 0 AND 9 
:BETWEEN 0 AND 9 

:R2 = DIGIT 


:LESS THAN ZERO? 
YES == BRANCH 
“GREATER THAN NINE? 


;vES <= CH 

:GET THE CHARACTER 
:STRIP AWAY THE ASCII 
;ADJUST FOR RETURN 
RE TURN 


:THIS ROUTINE ot a. AN ASCII CHARACTER TO 


CK.CHR: 


1$: 
2$: 
3$: 


; DETERMINE WHAT 
LL 


#ADR ,R1 


R5,CK.CHR 
R1 





sADDRESS OF ASCII CHARACTER 
; CHECK CHARACTER 


[UNKNOWN CHARACTER 
; CARRIAGE oo * (R1)=ADR+1 
>COMMA * (R1)=ADR+1 

;PERIOD * (R1)=ADR+1 

:DIGIT BETWEEN 0 AND 7. 
:DIGIT BETWEEN 8 AND 9. 

sR2 = DIGIT * (R1)=ADR+1 


3" "CARRIAGE | 7 
:YES ~~ 
""COMMA 


30 ? 
:DIGIT BE TWEEN 8-9 
-DIGIT BETWEEN 0-7 
;PERIOD 


; COMMA 
> CARRIAGE RETURN 
sMOVE POINTER TO NEXT CHARACTER 


mm we ee | ne ee - 


SEQ 0085 


Fa kad comune wesstre DR CMPT TST 


NERAL SUPPORT SUBROUTINES 


2335 022432 
36 022434 


022470 
2358 022472 
2359 022476 
2360 022500 
2361 022502 
2362 022504 
23635 022506 


2364 022510 
2365 aSSeie 


2377 560 
2378 022562 
2379 022564 


011505 
000205 


022364 


022364 


I 7 
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4$: 


1$: 


-—_—- 


MOV 
RTS 





oe em nee + ee —-—~—<—i«—a St 


(R5),R5 
R5 


#ADR,R1 
#NUM ,R2 
R5, RS CK. -DIG 


R4,-(SP) 

R3,-(SP) 

R2,-(SP) 
Re 

R3 


R4 
R5,CK.CHR 


#4,R5 

R3 

R3,-(SP) 
R3 


R3 

(SP)+,R3 
R2,R35 

R5,CK.CHR 


(SP)+,R3 


SEQ 0086 


s UNKNOWN CHARACTER 
RETURN 


;THIS ROUTINE CHECKS AN ASCII STRING FOR LEGAL 
; CHARACTERS AND FORMS A DECIMAL 


VALUE BINARY NUMBER IN R2. 


;ADDRESS OF ASCIZ_ STRING 
MAX. MAGNITUDE OF INPUT NUMBER 
CHECK DIGITS 


CR’' ONLY ENTERED =~ R2=0 

;PERIOD™ ONLY ENTERED -- R2=0 

SILLEGAL CHARACTER OR INPUT TOO LARGE =~ R2=? 
"CR" -< R2 = NUMBER 

:* "COMMA = R2_= NUMBER 

:"PERIOD'' == R2 = NUMBER 


SAVE R4 

sSAVE R3 

;SAVE THE MAX. SIZE ON THE STACK 
sSTART WITH 0 


: CHECK ONE CHARACTER 
; ILLEGAL CHARACTER 
edna RETURN 


“DIGIT 0-7 

:DIGIT 8-9 

s STEP RETURN POINTER PAST *'CR'* & *PERIOD’’ RETURNS 
NPUT NUMBER *2 


® SAVE «2 


CARRIAGE RETURN 


“DIGIT 0-7 
“DIGIT 8-9 
;DOES AR’ FOLLOW THE ‘PERIOD’' 


INCREMENT THE RETURN 


RETURN 
:CHECK THE MAGNITUDE OF THE NUMBER 
:BR_IF ENTERED NUMBER TOO LARGE 
:BYPASS INCREMENT 
: INCREMENT RETURN PAST INVALID RETURN 
; INCREMENT RET 
:SETUP RETURN POINTER 
:ENTERED VALUE 
sCLEAN MAX, SIZE OFF OF STACK 
:RESTORE R3 


> — + ome ee ee ee eee — — -_-- ~< 


J 7 
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SUPPORT SUBROUTINES SEQ 0087 
2380 022566 012604 MOV (SP)+,RG :RESTORE R4 
2381 022570 011505 MOV (R5) RS =GET RETURN ADDRESS 
2382 022572 000205 RTS RS RETURN 
2384 ;THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
385 : UNSIGNED DECIMAL ASCIZ NUMBER. 
2387 ; MOV NUMBER,-(SP) | ;PUT THE NUMBER ON THE STACK 
2388 : JSR PC, $SB2D : 
2389 : RETURN ;ADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK 
2391 ;NOTE: THE PROGRAM REQUIRES THIS FORM OF ‘$SB2D', NOT THE VERSION ON 
2592 : THE SYSMAC LIBRARY, REV C AND LATER 
2394 022574 016637 000002 022620 $SB2D: MOV 2(SP).1$ :SAVE THE BINARY NUMBER 
2395 022602 012746 022620 MOV #1$,-(SP) =SET THE POINTER 
2396 022606 004737 026314 JSR PC, $DB2D :CALL THE DOUBLE LENGTH CONVERT 
2397 022612 012666 000002 MOV (SP)+,2(SP) =PICKUP THE POINTER 
2398 022616 000207 RTS PC RETURN 
2399 022620 000000 000000 1$: .WORD 0,0 
2401 :THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
2402 [UNSIGNED OCTAL ASCIZ NUMBER 
2403 > CALL 
2404 : MOV NUMBER -(SP)  _;PUT THE NUMBER ON THE STALK 
2405 : JSR SB20 CALL 
2406 : RETURN sADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK 
2408 :NOTE: THE PROGRAM REQUIRES THIS FORM OF '$SB20'. NOT THE VERSION ON 
2409 : THE SYSMAC LIBRARY, REV C AND LATER 
2411 022624 016637 000002 022650 $SB20: MOV 2(SP).1$ ;SAVE THE BINARY NUMBER 
2412 022632 012746 022650 MOV #1$,-(SP) SET THE POINTER 
2413 022636 004737 026510 JSR PC, $DB20 [CALL THE DOUBLE LENGTH CONVERT 
2414 022642 012666 000002 MOV (SP)+,2(SP) *PICKUP THE POINTER 
2415 022646 000207 RTS PC “RETURN 
2416 022650 000000 000000 1$: .WORD 0,0 
2418 ;KEYBOARD INTERRUPT INITIALIZATION ROUTINE 
2419 : CALL 
2420 : JSR PC, $TKINT 
621 : RETURN 
2423 022654 012737 022704 000060 S$TKINT: MOV #STKSRV,TKVEC ;=SETUP VECTOR 
2424 022662 012737 000240 000062 MOV #PRS,TKVEC+2  :PRIORITY TO 5 
2425 022670 005777 156266 | TST a$TKB “CLEAR THE BUFFER 
2426 022674 012777 000100 156256 MOV WBIT06,a$TKS | :SET INTERRUPT ENABLE 
2427 022702 000207 RTS PC RETURN 
2429 ;KEYBOARD INTERRUPT SERVICE ROUTINE 
2430 > CALL 
2431 : ENTER VIA INTERRUPT 


2432 
2435 022704 


104410 STKSRV: RDCHR sREAD THE KEYBOARD 
2434 022706 112637 023046 MOVB (SP)+,5$ ;GET THE CHARACTER 
2435 022712 023727 023046 000003 CMP 5$ 43 :*CONTROL C°* ? 
2436 022720 001017 BNE 1$ ;BR IF NOT 





ne ee eee 


CZRMTAQ RMOS/3/2 DR CMPT TST 
GENERAL SUPPORT SUBROUTINES 


2437 neers 


24435 022754 
2444 

2445 022760 
2446 766 


2458 023044 
2460 023046 
2461 


484 
2485 093139 
486 
2487 023142 
88 


2492 023162 
2493 023164 





4 
023727 
20 


6 
122713 


023326 
023540 


000177 


000134 
023524 
177777 
023326 


023324 
023324 


000134 
023324 


000025 


001336 


000176 
000007 


156122 


023524 


023324 


1$: 


2$: 


3$: 
4$: 


5$: 


- WORD 





5$,47 
3$ 


$GT 
#100, a$TKS 
4$ 


.$ 


0 


; CR=LF 
9 Facer 


;SET THE ‘CONTROL C° FLAG 
: CLEAR THE TTY INTERRUPT 


R=L 
:HALT THE PROGRAM 
; JUMP TO RESTART 


sSOFTWARE SWITCH REGISTER IN USE ? 
:BR IF NOT 


; "CONTROL G° ? 
“BR IF NOT 
:CRALF 


sPUT THE STATUS WORD ON THE STACK 
sRETURN ADDRESS 

sCLEAR THE TTY INTERRUPT ENABLE 
:GET THE SWITCH REGISTER ENTRY 

; ENABLE TTY KEYBOARD INTERRUPT 


ECHO THE CHARACTER 
RETURN 


sENTERED CHARACTER 


aL ROUTINE WILL INPUT A STRING FROM THE TTY 


SRDLIN: 


1$: 
2$: 


6$: 


5$: 


7$: 


RDLIN 
RETURN HERE 
R3,-(SP) 
-(SP) 


#STTYIN,RS 
* ‘aieeitaateaaes 


(SP) +, (R3) 
177, (R3) 


(SP) 


6h 
#'°\.9$ 
#-1, (SP) 
R3 

RS .ASTTYIN 


9$ 


2$ 


(SP) 


7$ 
#*\ ,9$ 


(SP) 
#25, (R3) 


>; INPUT A STRING FROM THE TTY 
sADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
; TERMINATOR WILL BE A BYTE OF ALL O'S 


;GO READ ONE CHARACTER FROM THE TTY 
:GET CHARACTER 

:IS IT A RUBOUT 
;BR IF NO 


;IS THIS THE FIRST RUBOUT? 

;BR IF NO 

; TYPE A BACK SLASH 

:SET THE RUBOUT KEY 

sBACKUP BY ONE 

sSTACK EMPTY? 

7BR IF YES 

oe TYP ” TYPEOUT THE DELETED CHAR. 


YP 
:GO READ neg bay CHAR. 
: RUBOUT KEY SET? 


IF NO 
: TYPE A BACK SLASH 


;CLEAR THE RUBOUT KEY 
31S CHARACTER A CTRL U? 


SEQ 0088 


a~7~ } 


CZRMTAO F05/3/2 DR CMPT TST 
GENERAL SUPPORT SUBROUTINES 


TS 


+, 
MACRO V03.01 11-APR-80 14:43:18 PAGE 8-46 


SEQ 0089 


2494 023170 001003 BNE 10$ :BR IF NO a 
2495 023172 104401 026164 TYPE $CNTLU : TYPE A CONTROL ‘U 
2496 023176 000726 BR i$ *GO START OVER 
2497 023200 122713 000003 10$: CMPB = #3, (R3) :1$ CHARACTER A CTRL C ? 
2498 023204 001006 BNE 8$ F NOT 
2499 023206 012737 177777 001336 MOV #-1,CFLAG “SET CNTRL C FLAG 
2500 023214 104401 023352 TYPE  ,$CNTLC *ECHO IT 
2501 023220 000427 BR EXIT art 
2502 023222 122713 000012 8$: CMPB so #'12,, (R3) 71S CHARACTER A ‘LF‘? 
2503 023226 001011 BNE 3$ *BRANCH IF NO 
2504 023230 105013 CLRB  —s- (R33) ;CLEAR THE CHARACTER 
2505 023232 104401 001207 TYPE  ,$CRLF :TYPE A CR’ & ‘LF’ 
2506 023236 104401 023326 TYPE STTYIN : TYPE THE INPUT STRING 
2507 023242 000706 3$ =GO PICKUP ANOTHER CHACTER 
2508 023244 104401 001206 4$: TYPE  ,$QUES *TYPE A 
2509 023250 000701 BR 1 CLEAR THE BUFFER AND LOOP 
2510 023252 111337 023324 3$: MOVB _(R3),9$ sECHO THE CHARACTER 
2511 023256 104401 023324 TYPE ,9$ 
2512 023262 122723 000015 CMPB ss #15, (R3) + :CHECK FOR RETURN 
2513 023266 001274 BNE 2$ :LOOP IF NOT RETURN 
2514 023270 105063 177777 CLRB = - 1 (R3) =CLEAR RETURN (THE 15) 
2515 023274 104401 001210 TYPE  ,$LF :TYPE A LINE FEE 
023300 005726 11$: TST (SP) + =CLEAN RUBOUT KEY FROM THE STACK 
2517 023302 012603 MOV (SP)+,R3 “RESTORE R3 
023304 011646 MOV (SP) ,-(SP) * ADJUST THE STACK AND PUT ADDRESS OF THE 
023306 016666 000004 000002 MOV 4(SP), 2(SP) s FIRST ASCII CHARACTER ON IT 
2520 023314 012766 023326 000004 MOV #STTYIN,4(SP) 
2521 023322 2 RTI RETURN 
2522 023324 000 9$: .BYTE 0 :STORAGE FOR ASCII CHAR. TO TYPE 
2523 023325 000 “BYTE 0 : TERMINATOR 
2524 023326 STTYIN: .BLKB 20. sRESERVE 20 BYTES FOR TTY INPUT 
$25? 023352 136 103 200 S$CNTILC: .ASCIZ /*C/<CRLF> sCONTROL °C’ 
507 EVEN 
2529 023356 005737 001376 FINISH: TST FAULT : COMPATIBLE ? 
2530 023362 001 BNE 1$ “BRANCH IF NOT 
2531 023364 104401 001207 TYPE  ,$CRLF *CR=L 
2532 023370 104401 041760 TYPE |MESG15 *MESSAGE: ALL DRIVE COMPATIBLE 
2533 023374 104401 001207 1$: TYPE | $CRLF > CR-LF | 
2534 023400 104401 04236 TYPE § {MESG20 
2535 023404 104401 042400 TYPE | STARS : TYPE STARS MESSAGE 
2536 023410 104401 001207 TYPE  |$CRLF CR-LF 
eh 023414 00017 155760 JMP ARS TART ; JUMP TO RESTART 
2539 -SBTTL END OF PASS ROUTINE 
FREAK 
“INCREMENT THE PASS NUMBER ($PASS) 
:*IF SW12=1 INHIBIT TRACE TRAP 
;*IF THERES A MONITOR GO TO IT 
:*IF THERE ISN'T JUMP TO FINISH 
023420 SEOP: 
023420 0002 NOP 
023422 005037 001116 CLR STSTNM ;;ZERO THE TEST NUMBER 
023426 005037 001176 CLR STIMES ::Z2ERO THE NUMBER OF ITERATIONS 








CZRMTAO wt i tf § 4 CMPT TST 
END OF PASS ROU 


2540 
2541 





023552 


023554 


023562 
023562 
023564 
023570 


000137 
023556 
000000 


104407 
105237 001117 
001775 


001220 
100000 


000042 


023476 


000042 


000020 
010000 


023560 


000020 
023554 


001220 


155422 
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INC SPASS + INCREMENT THE PASS NUMBER 
BIC #100000,$PASS ON'T ALLOW A NEG. NUMBER 
DEC (PC)+ : LOOP? 
SEOPCT: .WORD 1 
BGT SDOAGN SS YES 
MOV (PC)+,a(PC)+ ;zRESTORE COUNTER 
SENDCT: .WORD 1 
SEOPCT 
$GET42: MOV a42,R0 3:GET MONITOR reel te 
BEQ SDOAGN 3 BRANCH IF 
CLR -(SP) 32 INSURE THE ‘'T’’ BIT IS CLEAR 
MOV #$CLR.T,-(SP) UP FOR AN RTI OR RTT 
BR SRTRN ::60 DO AN RTI OR _RIT TO LOAD THE PSW 
nat 3zWITH A CLEARED ‘'T’*’ BIT 
MOV 242,R0 33 INSURE A CONTAINS THE MONITORS 
BEQ SDOAGN 72RETURN ADDRESS 
RESET 3;:CLEAR THE WORLD 
SENDAD: JSR PC, (RO) 3;:G0 TO MONITOR 
NOP 3: SAVE ROOM 
NOP 72FOR 
NOP 33ACT11 
SDOAGN: 
TRAP 7zPUSH OLD PSW AND PC ON STACK 
BIC #20, (SP) 7:CLEAR THE ‘‘T’’ BIT 
BIT #BIT12,aSWR + RUN WITH TRACE TRAP? 
BNE 1$ IF NO 
COM STBIT :31S i TIME FOR TRACE TRAP 
BM] 1$ F NO 
BIS #20, (SP) >: SET TRACE TRAP 
1$: MOV #$LOOP ,-(SP) +2 JUMP TO START OF TEST 
SRTRN: RTI + ¢RETURN==TH HIS IS CHANGED TO 
AN ‘RTT’ IF ‘RTT’ IS A LEGAL 
SS INSTRUCTION 
SLOOP: 
JMP a(PC)+ 7 RETURN 
SRTNAD: .WORD FINISH 
STBIT: .WORD O 7:°T'*’ BIT STATE INDICATOR 
-SBTTL ERROR HANDLER ROUTINE 
FREAK EKEEREEEEEKEREKEEEEREEEEKEEEKEEEEEEEKEKKKKKKEE 
* STHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
;*SAVE THE ERROR Sip. NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO SERRTYP ON ERROR 
>*THE SWITCH OPTIONS Hoye thes BY THIS ROUTINE ARE: 
= *SW15= 1 HALT 
7*SW13 INHIBIT ERROR TYPEOUTS 
:*SW10=1 BELL ON ERROR 
boyy LOOP ON ERROR 
** 
3* ERROR WN ;zERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR 
KSWR 3: TEST FOR An IN SOF T-SWR 
7$: at oN , THE ERROR FLAG 


INCB SERFLG 
7$ 


SEQ 0090 





8 Sa RM05/3/2 uThe TST 


RROR HANDLER 
023572 
0 


2542 
2545 


023762 


0 

023776 
024000 
024004 
024006 
024010 
024012 


013777 


122737 
001007 
113737 
004737 


02 
013716 
022737 
001001 


000002 


104401 
010046 
005000 
153700 
001004 


013746 


023762 
001207 


000001 


001130 
024470 


155242 


001000 


001124 
001200 


001200 
023506 


001207 


001130 


001132 
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155226 


000042 


MOV STSTNM,@DISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 
BIT #81T10,aSwR + sBELL ON ERROR? 


BEQ 1$ :NO = SKIP 
TYPE $BELL ; 3RING BELL 

1$: INC $ERTTL :COUNT THE NUMBER OF ERRORS 
MOV (SP) -SERRPC ::GET ADDRESS OF ERROR INSTRUCTION 
MOVB = a$ERAPC, SITEMB ::STRIP AND SAVE THE ERROR ITEM CODE 
BIT #B1T13.a ::SKIP TYPEOUT IF SET 


BNE 20$ ;zSKIP TYPEOUTS 
JSR PC ,SERRTYP :-GO TO USER ERROR ROUTINE 
TYPE , SCRLF 


20$: 
CMPB #APTENV, SENV 7 RUNNING IN APT MODE 
BNE 2$ :;NO,SKIP APT ERROR REPORT 
MOVB SITEMB, hie 37;SET ITEM NUMBER AS ERROR NUMBER 
JSR PC ,SATY4S ;z;REPORT FATAL ERROR TO APT 
21$: -BYTE 0O 
-BYTE 0 
223: 5R 22$ + ¢APT ERROR LOOP 
2$: TST aSWR T ON ERROR 
BPL 3$ ; 3 SKIP IF CONT INUE 
HALT ;HALT ON ERROR! 
CKSWR ::TEST FOR CHANGE IN SOF T-SWR 
3$: ait #BITO9,aSWR 2 a ces SWITCH SET? 
MOV SLPERR, (SP) «FUDGE RETURN FOR LOOPING 
4$: TST SESCAPE 3;CHECK FOR AN ESCAPE ADDRESS 
BEQ 5$ $3 IF NONE 
5s MOV SESCAPE , (SP) 3;2FUDGE RETURN ADDRESS FOR ESCAPE 
CMP H#SENDAD , 8442 7zACT-11 AUTO-ACCEPT? 
BNE 6$ 3 BRANCH IF NO 
- HAL T sz YES 


RTI 7 RETURN 
-SBTTL ERROR MESSAGE TYPEOQUT ROUTINE 


eter Tritt ett ttt ttt titi titi ttt ititititititiTiT 

“THIS ROUTINE USES THE "ITEM CONTROL BYTE’ (SITEMB) TO DETERMINE WHICH 

> *ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’ (SERRTB), 
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 
TYPE , SCRLF 32° ‘CARRIAGE RETURN'' & ‘LINE FEED'’ 
MOV RO,-(SP) 


7: SAVE R 
CLR - RO 7zPICKUP THE ITEM INDEX 


a#$ 1 TEMB,RO 

1$ :IF ITEM NUMBER IS ZERO, JUST 

:3 TYPE THE PC OF THE ERROR 
SAVE SERRPC FOR TYPEOUT 

:ztRROR ADDRESS 


MOV SERRPC ,~(SP) 


TYPOC +260 TYPE=-OCTAL ASCII(ALL DIGITS) 
BR 6$ sGET OUT 

1$: DEC RO ; SADJUST THE INDEX SO THAT IT WILL 
ASL RO 3 WORK FOR THE ERROR TABLE 


oe ee ee ee —- ——- - -— — eee ew 


SEQ 0091 


CZRMTAO 


2544 
2545 





RMO5/3/2 DR CMPT TST 
,ERROR MESSAGE TYPEOUT ROUTINE 


024014 


024112 


024116 


024162 


105737 
100002 


G05362 
024034 


001207 
024052 


001207 


001207 


024112 
040 


001173 


000002 
000001 


000100 


024166 
024460 


tal 
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000 


001232 
001233 


2$: 
3$: 


4$: 
S$: 
6$: 


7$: 


8$: 


RO 


RO 
#SERRTB,KO 
(RO) +28 


0 
- SCRLF 


(RO) +,4$ 
53 


0 
, SCRLF 


(RO) ,RO 
7$ 
(SP)+,RO 


, SCRLF 
PC 


a(RO) + 
(RO) 


$ 


-SBTTL TYPE ROUTINE 


CARA 


;*ROUTINE TO TYPE ASCIZ MESSAGE. ar ca, MUST TERMINATE WITH A O BYTE. 


ot 


;*CALL: 
3*1) USING A TRAP INSTRUCTION 
:& TYPE ~MESADR 


*OR 
* 
& 
* 


STYPE: 


1$: 


or 44h 


ENOTES: 


o~ (SP) 


>*THE ROUTINE WILL INSERT A 
$NU 


SEQ 0092 


- FORM TABLE POINTER 
Me SSAGE’* POINTER 
SKIP TYPEOUT IF NO POINTER 
:; TYPE THE ‘ERROR MESSAGE"’ 
$3 ME POINTER GOES HERE 
GE "LINE FEED’ 
1c rrkKUP "DATA HEADER’ POINTER 
set TYPEOUT IF 
shin B THE ‘DATA HEADER’' 
32° DATA HEADER’' POIN TER GOES HERE 
CARRIAGE RETURN'’ & ‘LINE FEED*' 
ICKUP *DATA ey wall POINTER 
‘60 TYPE THE DATA 
; ;sRESTORE RO 
+ ¢ CARRIAGE RETURN’’ & "LINE FEED’ 
E TURN 


co @(RO)+ FOR TYPEOUT 
22GO TYPE--OCTAL yt the DIGITS) 
e213 THERE ANOTHER NUMBER? 
:BR_IF NO 
::TYPE TWO(2) SPACES 


>: TWO(2) SPACES 


L_ CHARACTERS AFTER A LINE FEED. 


R OF NUL 
LL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


SFILLS CONTAINS T 


THE NUMBER OF FILLER CHARACTERS REQUIRED. 


SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


STPFLG 
1$ 
$' 


ae(SP), 


WAPTENV, 
62$ 


“RO, -(SP) 


RO 
SENV 


:sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


:eI5 ee A TERMINAL? 
i HALT HERE IF NO TERMINAL 


>: SAVE RO 
::GET ADDRESS OF ASCIZ STRING 
: RUNNING IN APT 


:2NO,GO CHECK FOR APT CONSOLE 
TO APT 


 eataaataeatiale : 7 SPOOL arene 
RO,61$ 
PC,SATYS 


;sNO,GO CHECK FOR CONSOLE 
::SETUP MESSAGE san Se FOR APT 
::SPOOL MESSAGE TO AP 


eee eee ee oe - _—- — one 


_——"- ~-cr?.—._._ OO ...0000  ._._.0_ 0000 - .. n  ia  —  SXnknknXn nnn nr a -—O—i— CC Oe aceseeaeeceeee - a ee eaeooeo=— ee rene 


———-——_—— 








0 
024410 


000000 
132737 
00 


004737 
123726 
001350 


005726 


105777 
100375 
116677 


CZRMTAO RMOS/3/2 DR CMPT TST 
TYPE ROUTINE 
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000040 001233 


000002 
000011 
000200 


024446 


024330 
001172 


001170 
000001 


024330 
024446 


000040 
024330 
000007 


154624 
154620 
177600 
000023 
154600 
154574 
177600 
000021 


154556 
000002 


024446 


154550 


61$: 
62$: 
2$: 
60$: 
3$: 


4$: 


5$: 
6$: 


7$: 


sHORIZONTAL TAB 


8$: 
$: 


WORD 
B 


MOVB 
JSR 
BITB 
BN 


TST 


BR 
STYPEC: 


101$: 


102$: 
10$: 


0 
#APTCSUP , SENVM 
O$ 


(RO) +,=(SP) 
4$ 

(SP) + 
(SP)+,RO 
#2, (SP) 
al 
peat 


(SP) + 


SCHARCNT 
2$ 


PC ,$TYPEC 
SFILLC,(SP)+ 
2$ 


SNULL , = (SP) 
1 (SP) 

6$ 

PC ,STYPEC 
SCHARCNT 


PROCESSOR 


#" ,(SP) 
PC,$TYPEC 
#7 ,SCHARCNT 


(SP) + 
2$ 

asTKS 

10$ 
a$TkKB,-(SP) 
#177600, (SP) 
WSXOFF , (SP) 
102$ 

asTKs 


a$TKB, (SP) 
#177600, (SP) 
#$XON, (SP) 


(SP) + 

a$TPS 

10$ 

2(SP) ,a$TPB 


+ ¢MESSAGE ADDRESS 
CON 


; «PUSH CHARACTER TO BE TYPED ONTO STACK 
;sBR IF IT ISN*T THE TERMINATOR 

;21F TERMINATOR POP IT OFF THE STACK 

; RESTORE RO 

; ADJUST RETURN PC 

; sRETURN 


3;BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 


sPOP <CR><LF> + ped 
TYPE A CR AND L 


+2 CLEAR CHARACTER COUNT 


CTER 
IT TIME FOR 4a CHARS .? 


NO NEXT CHAR 
$3GET # OF FILLER CHARS. NEEDED 
sAND THE NULL CHAR. 
; DOES A NULL NEED TO BE TYPED? 

:BR IF “‘¥h POP THE NULL OFF OF STACK 
::GO TYPE A NULL 
:;DO NOT COUNT AS A COUNT 


:sREPLACE TAB WITH SPACE 
22 TYPE A SPACE 

sBRANCH IF NOT AT 
7: TAB STOP 
:sPOP SPACE OFF STACK 
:2GET NEXT CHARACTER 


3: CHAR IN KYBD BUFFER? 
+ ¢BR IF NOT 

CHAR 
; STRIP Tay a BITS 
3zWAS CHAR X 


; BR IF NOT 
:eWAIT FOR CHAR 


ssFIX STACK 
:zWAIT UNTIL PRINTER IS READY 
;;LOAD CHAR TO BE TYPED INTO DATA REG. 


ee one ee ee 


SEQ 0093 





CZRMTAQ “shan DR CMPT TST 
TYPE ROUTINE 


2546 
2547 


024416 


024450 


024452 


024702 


112737 
112737 
000403 
112737 


105037 


000015 
024446 
000012 


000001 
000001 


000001 


024714 
000001 
000100 


000002 
001212 
001226 


001226 
001230 
000004 


000002 
177776 
024116 
024716 
001232 
001212 
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000002 


00002 


024716 
024714 


024716 


001232 
001233 


000004 


001212 
024626 
000004 


BR 
1$: CMPB 


INCB 
SCHARCNT : .WORD 
STYPEX: RTS 


os 


atus se(SP) 
Pos 
PC 


e315 ar at tao A CARRIAGE RETURN? 
i: YES==CLEAR CHARACTER COUNT 
3318 CHARACTER A LINE FEED? 

CH _IF YES 


;s COUNT THE CHARACTER 
;s CHARACTER COUNT STORAGE 


~SBTTL APT COMMUNICATIONS ROUTINE 


fF AAR AARERAAAEKEKEERREREEEEKEEKEREKEEEEEREEREREEEEEEEKEEEEERERKKKEE 


SATY1: MOVB 
SATY3: — 


1$: TST 


2$: TSTB 
BN 


12$: CLRB 


#1 ,$FFLG 
#1 ,SMFLG 


SATYC 

#1,$FFLG 
RO,-(SP) 
R1,-(SP) 

SMF LG 
HAPTENV,SENV 
Sabana iment 


RO 
RO, $MSGLGT 
ot , SMSGTYPE 


94 (SP) 348 
gat b= (SP) 


SFFLG 

12$ 

SENV 

12$ 

SMSGTYPE 

@4 (SP) , SFATAL 
#2,4(SP) 


;;TO REPORT FATAL ERROR 
:3TO TYPE A MESSAGE 


::TO ONLY REPORT FATAL ERROR 

;sPUSH RO ON STACK 

;sPUSH R1 ON STACK 

+g} TYPE A MESSAGE? 

; }OPERAT ING UNDER APT? 

:IF NOT: BR 

; i SHOULD SPOOL MESSAGES? 
NOT: BR 

:7GET MESSAGE ADDR. 

RET ADDR. 

2 sSEE IF BONE W/ LAST XMISSION? 

NOT: WAIT 


WAI 
:;PUT ADDR IN MAILBOX 
:sFIND END OF MESSAGE 


+3 SUB START OF MESSAGE 


;sPUT LENGTH IN MAILBOX 
:zTELL APT TO TAKE MSG. 


::PUT MSG ADDR IN JSR LINKAGE 
RETURN ADDRESS 

: PUSH 199776 ON STACK 

=:CALL TYPE MACRO 


3: SHOULD REPORT FATAL ERROR? 
: [RUNNING UNDER APT? 
3 3F INISHED LAST MESSAGE? 

“IF NOT: WAIT 


GET ERROR cd 


;BUMP RETURN ADDR. 
73 TELL abt TO ays ERROR 
;;CLEAR FATAL FLAG 
;; CLEAR 


+ LOG FLAG 
;;CLEAR MESSAGE FLAG 


eee wee ee C+ C- _—- 


SEQ 0094 





CZRMTAO RMOS/3/2 DR CMPT TST 
APT COMMUNICATIONS ROUTINE 


2548 
2549 


024716 


024720 


012737 
012737 
010046 


025072 
000340 


154200 
025076 
024772 


025072 


025076 
154132 


024720 
000340 


000020 
023560 


012 


ee eee eee ee. o — 
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000024 
000026 


000024 


000024 


000024 
000025 


000002 


120 


MOV (SP)+,R1 3;z;POP STACK INTO R1 
MOV Seta 3;z:P0P STACK INTO RO 
RTS PC 53 URN 
SMFLG: .BYTE 0 : sMESSG. FLAG 
SLFLG: .BYTE 0 G FLAG 
SFFLG: .BYTE 0 =:FATAL FLAG 
APTSIZE = 200 
APTENV = 001 
APTSPOOL= 100 
APTCSUP = 040 , 
.SBTTL POWER DOWN AND UP ROUTINES 
SEERA EERKREEE 
POWER DOWN ROUT INE 
$PWRDN: LLUP ,@A#PWRVEC ;;SET FOR FAST UP 
mov P340e Q#PWRVEC+2 ;:PRIO:7 
MOV RO,-(SP) ::PUSH RO ON STACK 
MOV R1,-(SP) ::PUSH R1 ON STACK 
MOV R2,-(SP) :zPUSH R2 ON STACK 
MOV R3,-(SP) ::PUSH R3 ON STACK 
MOV R4,-(SP) : PUSH R4& ON STACK 
MOV RS,-(SP) ::PUSH RS ON STACK 
MOV @SWR,-(SP) ::PUSH @SWR ON STACK 
MOV SP, SSAVR6 ::SAVE SP 
MOV #SPWRUP ,AAPWRVEC ;:SET UP VECTOR 
BR .-2 : HANG UP 
SARAH 
“ POWER UP ROUTINE 
UP: MOV #SILLUP ,AMPWRVEC :;:SET FOR FAST DOWN 
MOV SSAVR6, SP ::GET SP 
CLR SSAVR6 WAIT LOOP FOR THE TTY 
1$: INC SSAVR6 ; WAIT FOR THE INC 
BNE 1$ :0F WORD 
MOV (SP) +, aSWR ::POP STACK INTO aSWR 
MOV (SP)+,R5 ::POP STACK INTO RS 
MOV (SP)+,R4 ::POP STACK INTO R4 
MOV (SP)+,R3 23 STACK INTO R3 
MOV (SP)+,R2 33 STACK INTO R2 
MOV (SP)+,R1 ::POP STACK INTO R1 
MOV (SP)+,RO :POP STACK INTO RO 
MOV A#SPWRD DN, @#PWRVEC *:SET UP THE POWER DOWN VECTOR 
MOV #340, a#PWRVEC+2 ;:PRIO:7 
TYPE *REPORT THE POWER FAILURE 
SPWRMG: .WORD $POWER ; ;POWER FAIL MESSAGE POINTER 
BIC #20, 2(SP) CLEAR ‘'T’’ BIT 
CLR $TBIT >:CLEAR THE ''T’’ BIT FLAG 
SILLUP: HALT THE POWER UP SEQUENCE WAS STARTED 
BR 72 23 «BEFORE THE POWER DOWN WAS COMPLETE 
SSAVR6: O 3;z;PUT THE SP HERE 
SPOWER: 





eASCIZ <15><12>' POWER’' 
EVEN 


SEQ 0095 


ye 


i aa ee ee ee eae ee 


8 
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mm mm ee ee eC 


ZRMTAO RMOS/3/2 DR CMPT TST 
INARY TO OCTAL (ASCII) AND TYPE 


2551 ~SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


SEERA EREREEEREREREEEEERREERRERREREEREEREEEREEE 


VRTHIS ROUTINE IS USED TO a A 16-BIT BINARY NUMBER TO A 6-DIGIT 
+ *OCTAL (ASCII) NUMBER AND TYPE IT. 
= ha arises HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


Oa 


SEQ 0096 





MOV NUM , = (SP) ;NUMBER TO BE TYPED 

TYPOS == CALL FOR TYPEOUT 

BYTE N 3;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
BYTE ™ 7z7M=1 OR O 


;*$TYPOS OR $ 
LL: 


** 
+ 


MOV NUM ,-(SP) 
TYPON 


:21=TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 


Selon Siva TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


; <NUMBER TO BE TYPED 
7:CALL FOR TYPEOUT 


;# ST YPOC——-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


> *CALL 


“he MOV NUM ,- (SP) ;;NUMBER TO BE TYPED 
;* TYPOC :sCALL FOR TYPEOUT 

025110 017646 $TYPOS: MOV @(SP) ,-(SP) ;sPICKUP THE MODE 

025114 116637 000001 025333 MOVB 1(SP) ,$OF ILL *sLOAD ZERO FILL SWITCH 
025122 112637 025335 MOVB (SP) + eoenees sNUMBER OF DIGITS TO TYPE 
025126 716 000002 ADD #2, (SP) ; ;ADJUST RETURN ADDRESS 
025132 06 $TYPON 

25134 112737 000001 025333 $TYPOC: MOVB #1,SOF ILL 3:SET THE ZERO FILL SWITCH 
025142 112737 000006 025335 VB #6, E+ >sSET ©OR SIX(6) DIGITS 
025150 112737 000005 025332 $TYPON: MOVB #5 ,S0CNT :¢SET THE ITERATION COUNT 
025156 010346 MOV R3,-(SP) +s SAVE R3 

25160 010446 MOV R4,-(SP) SAVE R4 
025162 010546 MOV R5,-(SP) >; SAVE RS 
025164 113704 025335 MOVB SOMODE +1 ,R4 :-GET THE NUMBER OF DIGITS TO TYPE 
025170 005404 NEG R4 
025172 2704 000006 ADD #6 ,R4 :sSUBTRACT IT FOR MAX. ALLOWED 
025176 110437 025334 MOVB R4 , SOMODE :sSAVE IT FOR USE 

025202 113704 025333 MOVB SOF ILL .R4 7;GET THE ZERO FILL SWITCH 

25206 016605 000012 MOV 12(SP) ,R5 :sPICKUP THE INPUT NUMBER 
025212 005003 CLR R3 :sCLEAR THE OUTPUT WORD 
025214 006105 1$: ROL R5 ; ROTATE MSB INTO ‘'C*’ 
025216 000404 3$ ::GO DO MSB 

25220 006105 2$: ROL R5 :3FORM THIS DIGIT 

025222 006105 ROL R5 
025224 006105 ROL R5 

025226 010503 MOV R5.R3 

25230 103 3$: ROL R3 :GET LSB OF THIS DIGIT 
025232 105337 025334 DECB SOMODE : TYPE THIS DIGIT? 

25236 100016 BPL 7$ IF NO 

025240 042703 177770 BIC #177770,R3 : GET RID OF JUNK 

025244 001002 BNE 7; TEST FOR 0 

025246 5704 TST R4 ; SUPPRESS THIS 0? 

025250 001403 BEQ 5$ ;:BR IF YES 

025252 005204 4$: INC R4 :;DON*T SUPPRESS ANYMORE 0'S 


mr ce ee ee ee .—— - ae — 


oe +e a Cee ee — ————-- - 
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CZRMTAQ RMOS/3/2 DR CMPT TST 


BINARY TO OCTAL (ASCII) AND TYPE SEQ 0097 


025254 052703 0 BIS #°0,R3 ::MAKE THIS DIGIT ASCII 
| 025260 052703 40 S$: BIS #' —R3 > :MAKE ASCII ib NOT ALREADY 
25264 110337 025330 MOVB _R3, BS ;7SAVE FOR TYPING 
025270 104401 025330 TYPE ¢ -GO 0 TYPE THIS DIGIT 
025274 105337 025332 7$: DECB $0CNT >: COUNT BY 1 
25300 003347 BGT 2$ ;3BR IF MORE TO DO 
025302 002402 BLT 6t F DONE 
025304 005204 INC R4 i: INSURE LAST DIGIT ISN'T A BLANK 
025306 Pak BR 2$ :GO DO THE LAST DIGIT 
025310 012605 6$: MOV (SP)+,R5 = =RESTORE R5 
025312 012604 MOV (SP) +.RG = =RESTORE RG 
| 025314 012603 MOV P)+, > =RESTORE R3 
025316 016666 000002 000004 MOV 2(SP),4(SP) ::SET THE STACK FOR RETURNING 
025324 012616 MOV (SP) +, (SP) 
025326 2 RT] + sRETURN 
253 000 8$: BYTE 0 :: STORAGE FOR ASCII DIGIT 
025331 000 ‘BYTE 0 >: TERMINATOR FOR TYPE ROUTINE 
025332 000 SOCNT: .BYTE 0 ::0CTAL DIGIT COUN 
025333 009 SOFILL: .BYTE 0 ::ZERO FILL SWITCH 
one 5334 000000 SOMODE: .WORD 0 : NUMBER OF DIGITS TO TYPE 
2553 .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
SEERA 
“THIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER TO A 5-DIGIT 
:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
:*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
: *REPLACED WITH SPACES. 
-* ; 
: MOV NUM, - (SP) :zPUT THE BINARY NUMBER ON THE STACK 
:* TYPDS *:GO TO THE ROUTINE 
025336 STYPDS: 
025336 010046 MOV RO,-(SP) ; PUSH RO ON STACK 
025340 010146 MOV R1,=-(SP) =:PUSH R1 ON STACK 
025342 010246 MOV R2,-(SP) ::PUSH R2 ON STACK 
025344 010346 MOV R3,-(SP) ::PUSH R3 ON STACK 
25346 010546 MOV R5,-(SP) = =PUSH R5 ON STAC 
025350 012746 020200 MOV #20200,-(SP) =: BLANK SWITCH AND SIGN 
025354 016605 000020 MOV 20(SP) -R5 GET THE INPUT 
25360 BPL 1$ ::BR IF INPUT IS i? 
025362 005405 NEG R5 ;ZMAKE THE BINARY NUMBER POS. 
25364 112766 000055 000001 MOVB #'=.1(SP) ::MAKE THE ASCII NUMBER NEG. 
025372 005 1$: CLR RO #3 ZERO THE CONSTANTS INDEX 
025374 012703 025552 MOV #$DBLK ,R3 :SETUP THE OUTPUT POINTER 
025400 112723 000040 MOVB = #' .(R%)+ ::SET THE FIRST CHARACTER TO A BLANK 
025404 005002 2$: CLR R2 i: CLEAR THE BCD NUMBER 
25406 016001 025542 MOV $DTBL (RO) .R1 :GET THE CONSTANT 
025412 160105 3$: SUB R1,R5 ; 7 FORM THIS BCD DIGIT 
025414 002402 BLT 4$ IF 
025416 005202 INC R2 >: INCREASE THE BCD DIGIT BY 1 
25420 000774 BR 3$ 
025422 060105 4$: ADD R1,R5 :ADD BACK THE CONSTANT 
025424 005702 TST R2 £3 CHECK IF BCD DIGIT=0 
025426 001002 BNE $ FALL THROUGH IF 0 
025430 105716 TSTIB. ~—_- (SP?) ::STILL DOING LEADING 0'S? 








Sepele tet gt B DR CMPT TST 


CONVERT 


2554 
2555 


025432 
0 


022737 


000001 
000060 
000040 


000010 


177777 


025552 
000002 


000176 
153362 
153356 
177600 


001150 


026171 
026176 
000176 


177777 


177776 


000004 


001154 


000001 


IMAL AND TYPE ROUTINE 


ee er re ee ee ee 
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I 7$ ::BR IF YES 
5$: ASLB (SP) ; MSD? 
BCC 6$ :BR IF NO 
MOVB _—1(SP),=1(R3) ;sYES==SET THE SIGN 
6$: BIS #°0,R2 MAKE THE B60 DIGIT ASCII 
7$: BIS 1 R2 ; sMAKE IT A SPACE IF NOT ALREADY A DIGIT 
MO R2, (R3)+ ;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
TST (RO) + -: JUST INCREMENT ING 
CMP RO,#10 ;3CHECK THE TABLE INDEX 
BLT :GO DO THE NEXT DIGIT 
BGT ::G0 TO EXIT 
MOV R5,R2 -:GET THE LS 
BR é ::G0 CHANGE TO ASCII 
8$: TSTB =. (SP) + ; sWAS THE LSD THE FIRST NON-ZERO? 
BPL 9$ IF NO 
MOVB =1(SP),=-2(R3) ii YES-"SET THE SIGN FOR TYPING 
9$: CLRB 3) ;3SET THE TERMINATOR 
MOV (SP) +,R5 *: STACK INTO R5 
MOV (SP) +,R3 ::POP STACK INTO R3 
MOV (SP)+,R2 ::POP STACK INTO R2 
MOV (SP)+,R1 ::POP STACK INTO R1 
MOV (SP)+,RO - STACK INTO RO 
TYPE , $DBLK -:NOW TYPE THE NUMBER 
MOV 2(SP),4(SP) =:ADJUST THE STACK 
MOV (SP) +, (SP) 
RT] : RETURN TO USER 
$DTBL: 10000 
1000. 
100. 
10. 
SDBLK: .BLKW 4 
.SBTTL TTY INPUT ROUTINE 
5 AAA 
.ENABL LSB 
2 FREAK EEEEEEREEEEREKEEEREKEEREREEEREEEREREREKKEEE 
[*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
:*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
sSWHEN OPERATING IN TTY FLAG MODE. 
$Ck CMP ASWREG, SWR :21S THE SOFT~SWR SELECTED? 
E $ CH IF NO 
TSTB = aSTKS 33 CHAR THERE ? 
BPL 15$ F NO, DON'T WAIT AROUND 
MOVB TKB, -(SP) >: SAVE THE CHAR 
BIC #°C177, (SP) i: STRIP-OFF THE ASCII 
CMP #7, (SP)+ .: Is IT A CONTROL G? 
15$ , RETURN TO USER 
C SAUTOB, #1 WE RUNNING IN AUTO-MODE? 
BEQ $ * BRANCH IF YES 
TYPE ,SCNTLG ::ECHO THE CONTROL-G (*G) 
$GISWR: TYPE “SMSWR ;: TYPE CURRENT CONTENTS 
V SWREG, -(SP) >: SAVE SWREG FOR TYPEOUT 
TYPOC ::GO TYPE=-OCTAL ASCII(ALL DIGITS) 





SEQ 0098 








CZRMTAO py tat AS DR CMPT TST 
TTY INPUT ROUTI 


ne me eee ere eee —~- - - 
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SEQ 0099 


025710 


025712 


104401 
005046 
005046 
105777 
100375 


117746 


042716 


021627 
005 


011646 


026207 
153300 


153274 
177600 


000025 
026164 
000006 


000015 
000004 
000002 


000006 
001207 
001157 


000100 
024330 
000060 


000067 


000060 
000002 


000002 
177776 
001206 


TYPE , SMNEW : PROMPT FOR NEW SWR 
19$: CLR =(SP) ::CLEAR COUNTER 
CLR -(SP) +: THE NEW SWR 
7$: TSTB ~=—s-_ aSTKS =:CHAR THERE? 
BPL 7$ ::1F NOT TRY AGAIN 
MOVB  a$TKB.-(SP) ::PICK UP CHAR 
BIC #°C177, (SP) ::MAKE IT 7<BIT ASCII 
9$: CMP (SP) 425 :21S IT A CONTROL=U? 
BNE 10$ CH IF NOT 
TYPE »$SCNTLU ;3YES, ECHO CONTROL=U (*U) 
208: ADD #6,SP GNORE PREVIOUS INPUT 
BR 19$ -:LET'S TRY IT AGAIN 
10$: CMP (SP) #15 ::1S IT A <CR>? 
BNE 16$ : ;BRANCH IF NO 
TST 4(SP) ::YES, IS IT THE FIRST CHAR? 
BEQ 11$ CH IF YES 
153220 MOV (SP) . aSwWR 7: SAVE NEW SWR 
11$: ADD #6, ::CLEAR UP STACK 
14$: TYPE SCR LF ::ECHO <CR> AND <LF> 
000001 CHB SINTAG, #1 : : RE-ENABLE TTY KBD INTERRUPTS? 
153176 MOV #100, a$TKS > :RE-ENABLE TTY KBD INTERRUPTS 
5$ RTI : :RETURN 
16$ JSR PC ,$TYPEC ::ECHO CHAR 
CMP (SP) ,460 ::CHAR < 0? 
BLT 18$ : :BRANCH IF YES 
CMP (SP) #67 * > 7? 
BGT 18$ : BRANCH IF YES 
BIC #60, (SP) + ::STRIP-OFF AS 
TST 2(SP) ::1S THIS THE FIRST CHAR 
BEQ 17$ :: F YES 
ASL (SP) ::NO, SHIFT PRESENT 
ASL (SP) 33 VER TO MAKE 
ASL (SP) 33 FOR ONE . 
17$: INC 2(SP) ::KEEP COUNT OF CHAR 
BIS -2(SP), (SP) ::SET IN NEW CHAR 
BR $ ::GET THE NEXT ONE 
18$: TYPE SQUES :: TYPE ?<CR><LF> 
BR 20$ >: SIMULATE CONTROL-U 
.DSABL LSB 


FEAR AAA EEEAAEEAERAEAEEREAEAEAAEAEREREEREREEEEEEREEEKEKEEE 


“RTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


*CALL: 

3° RDCHR +4 INPUT A SINGLE CHARACTER FROM THE TTY 
;@ RETURN HERE CHARACTER IS ON THE STACK 

tad ::WITH PARITY BIT STRIPPED OFF 

$SRDCHR: MOV (SP) ,-(SP) :;PUSH DOWN THE PC 





CZRMTAOQ git dS DR CMPT TST 
TTY INPUT ROUTI 


2556 
2557 





026220 
026220 


026254 


000004 
153100 
153074 
177600 


153046 
153042 


177600 
000021 


000004 


ne or ee ee - 
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000002 


000004 
000904 
000023 


3 MOV 
1$: TSTB 


BN 
2$: TSTB 


4$: R 
SCNTLU: .ASCIZ 


SCNTLG: .ASCIZ 
SMSWR: .ASCIZ 
SMNEW: .ASCIZ 


4(SP) ,2(SP) 
@$TKS 


a$TKB,4 (SP) 
#*°C<177>._4 (SP) 
4(SP) #23 
a$TKS 

2$ 
a$TKB,-(SP) 
#°C177, (SP) 
(SP)+, #2) 
2$ 

1$ 

4 (SP) .#140 
4 (SP) #175 
#40,4(SP) 


/*U/<15><12> 
/*G/<15><12> 


<15><12>/SWR = 
/ NE 


aly THE PS 


IS IT A_CONTROL-S? 
se CH IF NO 
:;WAIT FOR A CHARACTER 
;sLOOP UNTIL ITS THERE 
;;GET CHARACTER 
+ sMAKE 7 7-BIT ASCII 
:1S IT A CONTROL-Q? 
ie1F NOT DISCARD IT 


RESUME 
e315 IT UPPER CASE? 
CH IF YES 
3318 IT A SPECIAL CHAR? 
CH IF YES 


:sMAKE IT UPPER CASE 
+2G0 BACK TO USER 
ONTROL ‘U"' 


ji CONTROL ''G’' 


-SBTTL SAVE AND RESTORE RO-R5S ROUTINES 


FREAK 


: SSAVE RO-R5 
CALL: 


;* 


‘ TOP===(+16) 

s# +2-——(+18) 

3% +4---R5 

5% +6---R4 

s* +8---R5 

3 *+10---R2 

3 *+12-=-R1 

3*+14---R0 

SSAVREG: 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 


;*RESTORE RO-R5 
>*CALL: 


53(SP) -(SP) 
22(SP) ,-(SP) 
22(SP) ,-(SP) 
22(SP) ,-(SP) 


SAVREG 
; *UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 


3zPUSH RO ON STACK 


2sSAVE PC OF CALL 





026256 


026314 


000 
035632 


CZRMTAO RMO5/3/2 DR CMPT TST 
SAVE AND RESTORE RO=R5 ROUTINES 


000002 
026474 
000002 


000012 
026424 


026426 - 


000060 








——e ee oe — —_—— —<-- 


K 8 
MACRO V03.01 11-APR=-80 14:43:18 PAGE 8-58 


026412 


-* 
SRESREG: 


RESREG 


(SP)+,RO 


;sRESTORE PC OF CALL 
sRESTORE PS OF CALL 
ssRESTORE PC OF MAIN FLOW 
sce Th PS TO aa FLOW 


;sPOP STACK INTO RO 


-SB8TTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


SRR EEEEEEEAKEEREEKEEEEEEEEEEEEEEEREEEEEEKKEKEKE 


RTHIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN at ae 


>*DECIMAL (ASCII) 


: *POSITIVE. 


1$: 


3$: 


4$: 


RT 
STNPWR: ; 


MOV 
JSR 


RETURN 


SAVREG 


#PNTR,-(SP) 
PC, a¥$DB2D 


2 
(R4)+,R1 
R2 


(R4)+,R2 
(R5)+,(R5)+ 
#°O.R 


R3, (RO) + 
(PC)+ 


1$ 
(RO) + 


NUMBER. THE SIGN OF THE BINARY NUMBER MUST 


>sPOINTER TO LOW WORD OF BINARY NUMBER 


:-THE FIRST ADDRESS OF ASCIZ 
2721S ON THE STACK 


;zSAVE REGISTERS 
;zPICKUP THE DATA POINTER 
3GET ADDRESS OF ‘‘SDECVL'' STRING 
T ADDRESS OF ASCIZ STRING ON STACK 
«PICKUP THE BINARY NUMBER 


:-SET UP TO DO 10 CONVERSIONS 
:sADDRESS OF TEN POWER 


3:CLEAR PARTIAL 
3; SUBTRACT TEN POWER 

;BR IF TEN POWER TO LARGE 
: ADD TO PARTIAL 
;zRESTORE SUBTRACTED VALUE 


:sMOVE TO NEXT TEN POWER 
oe it PARTIAL TO ASCII 
? 


Ais 


I 
ERMINATOR 
; sRESTORE REGISTERS 
URN 
-:1.0E09 


ee ee eee ee — = 


SEQ 0101 





CZRMTAO RMO5/3/2 DR CMPT TST 


2560 
2561 





026510 


000002 
026627 
000014 
177770 


000002 


000060 


-_-— —_—_——— 
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SEQ 0102 


Se ag 3;1.0E08 
113200 331.0E07 
621100 331.0E06 
103240 331.0E05 
23420 331.0E04 
1750 331.0E03 
144 331.0E02 
92 :31.0E01 
: ;31.0E00 
SDECVL: OBLKB 12. :sRESERVE STORAGE FOR ASCIZ STRING 


-SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


FEAR KKEE 


: #THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN 
— OCTAL ASCIZ NUMBER. 


** 
:* MOV #PNTR,-(SP) :zPOINTER TO LOW WORD OF BINARY NUMBER 
zs JSR PC, a¥v$DB20 7:CALL THE ROUTINE 
:* RETURN 7: THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
$DB20: SAVREG ;3SAVE ALL REGISTERS 
MOV 2(SP).R1 PICKUP THE POINTER TO LOW WORD 
MOV #SOCTVL+13..R5 POINTER TO DATA TABLE 
MOV 2. .R4 ::DO ELEVEN CHARACTERS 
MOV #*C7,R3 ; =MASK 
MOV (R1)+,RO *:LOWER WORD 
MOV (R1)+.R1 = :HIGH WORD 
CLR R2 ; i TERMINATOR 
1$: MOVB _R2, ~(R5) T CHARACTER IN DATA TABLE 
MOV RO,R2 :3GET THIS DIGIT 
DEC R OUNT THIS CHARACTER 
BGT 3$ ::BR IF NOT THE LAST DIGIT 
BEQ 2$ ::BR IF IT IS THE LAST DIGIT 
INC R5 ;@ALL DIGITS DONE-ADJUST POINTER FOR FIRST 
MOV R5,2(SP) ASCIZ CHAR. & PUT IT ON THE STACK 
RESREG > RESTORE ALL REGISTERS 
RTS PC : RETURN TO USER 
2$: ASR R3 ;7POSITION THE MASK FOR THE LAST DIGIT 
3$: ROR R1 ::POSITION THE BINARY NUMBER FOR 
ROR RO :: THE NEXT OCTAL DIGIT 
ROR R1 
ROR RO 
ROR R1 
ROR RO 
BIC R3,R2 ::MASK OUT ALL JUNK 
ADD #°0,R2 ::MAKE THIS CHAR. ASCII 


026610 
026612 


0007535 


104407 
032777 
001114 
000416 


013746 


24 
012737 
013737 


CZRMTAO RMO5/3/2 DR CMPT TST 
DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


040000 


000400 
152240 
001117 
001131 
001000 
001124 


001117 
001176 


004000 
001220 
001120 
001176 


000001 
027106 





em ee ee a | ee 5 ee ss | eee | -—— 
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152314 


000004 


152246 
001116 


001117 
152210 
001122 


152156 


001120 


001120 
001176 


BR 1$ ;;GO PUT IT IN THE DATA TABLE 
SOCTVL: .BLKB 14. ; RESERVE DATA TABLE 


~SBTTL SCOPE HANDLER ROUTINE 


RRR ERERREERERRERERRERRERARE REE REE 

: THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
:*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


LOOP ON TEST 
INHIBIT Na ad ee 
LOOP ON ERR 


3 *Sw09=1 
3 *SWO8=1 LOOP ON TEST IN SWR<7:0> 
:*CALL 
;* SCOPE 3; SCOPE=IOT 
SSCOPE: 

CKSWR ¢eTEST FOR CHANGE IN SOF T=-SWR 
1$ BIT #B1T14,aSWR 3;;LOOP ON PRESENT TEST? 

SOVER sYES IF SW14=1 


BNE 
:AARAASTART OF CODE FOR THE XOR TESTERMAWAM 
SXTSTR: BR 6$ +4 RUNNING ON THE Hy 9” TESTER CHANGE 
‘THIS INSTRUCTION TO A *NOP** (NOP=240) 
MOV @FERRVEC ,-(SP) SAVE THE CONTENTS OF THE ERROR VECTOR 


MOV #5$, @FERRVEC SISET FOR TIMEOUT 

TST a#177060 :TIME OUT ON XOR? 

MOV (SP) +, A#ERRVEC ; ;RESTORE THE ERROR VECTOR 
SSVLAD TO THE NEXT 


BR TEST 
5$: CMP (SP) +, (SP) + :7CLEAR THE STACK AFTER A TIME OUT 
¢¢REST ORE THE ERROR VECTOR 


MOV (SP) +, AMERRVEC 
BR 7$ LOOP ON THE PRESENT TEST 
ee OF CODE FOR THE XOR TESTERSHAAM 


+H #B1T08,aSWR :sLOOP ON SPEC. TEST? 
CMPB @SWR,STSTNM :sON THE RIGHT TEST? SWR<7 :0> 
BEQ SOVER :sBR IF Y 
2$: TSTB SERFLG > sHAS AN ERROR OCCURRED? 
BEQ $ ::BR IF NO 
a SERMAX , SERFLG ba FOR THIS TEST OCCURRED? 


BH NO 
BIT 4B1T09,aSWR :sLOOP GN ERROR? 


BEQ ae F NO 
7$: y ESLER :-SET LOOP ADDRESS TO LAST SCOPE 
4$: CLRB SERFLG »  42ZERO THE ERROR FLAG 
CLR STIMES +s CLEAR THE NUMBER OF ITERATIONS TO MAKE 
BR 1$ sESCAPE TO THE NEXT TEST 
3$: BIT #B81T11,@SWR 3 INH oe ITERATIONS? 
BNE :BR YES 
TST $PASS 33 1F FIRST PASS OF PROGRAM 
BEQ 1$ INHIBIT ITERATIONS 
INC SICNT : INCREMENT ITERATION COUNT 
CMP STIMES ,SICNT +s CHECK THE NUMBER OF ITERATIONS MADE 
BGE SOVER sBR IF MORE ITERATION REQUIRED 
1$: MOV #1,$I : :REINITIALIZE THE ITERATION COUNTER 


- SICNT 
MOV SMXCNT ,STIMES 


T NUMBER OF ITERATIONS TO DO 





SEQ 0103 





CZRMTAO RMO5/3/2 DR 
SCOPE HANDLER ROUTI 


2564 


2565 


2566 
2567 


027150 


027152 
027154 


027242 


C 
NE 


010046 


MPT TST 


segeeees 


—_ —) 
ro 


000004 
000116 
000114 
027240 
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001216 





SSVLAD: 


SOVER: 


SMXCNT: 


INCB 
VB 


RT 
2000. 


STSTNM 
STSTNM,STESTN 
(SP) , S$LPADR 
(SP) ,SLPERR 
SESCAPE 


#1 , SERMAX 
$TSTNM, aDISPLAY 
SLPADR, (SP) 


~SBTTL ROUTINE TO SIZE MEMORY 


sCOUNT TEST NUMBERS 
SISET TEST NUMBER IN APT MAILBOX 
+ SAVE SCOPE LOOP ADDRESS 
SAVE ERROR LOOP ADDRESS 
3 CLEAR THE ESCAPE FROM ERROR ADDRESS 
Y ALLOW ONE(1) ERROR ON NEXT TEST 
::DISPLAY TEST NUMBER 
SPINES RETURN ADDRESS 


> bet PS 
- NUMBER OF ITERATIONS 


FEAR AEEEEKEEKEKEEEEEEKEEKEREEEEKEEEKEEEKEREEEKEEEEEEKEEKKEEE 


CALL: 


** 


JSR 


PC,$SIZE 


: RE 
‘ *SLSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION 


SSIZE: 


SPR 
S3SET THE ERRVEC PS TO THE PRESENT P 
(SP) +, AMERRVEC+2 


1$: 


2$: 


RTS 
$LSTAD: .WORD 


af) 
@#ERRVEC ,-(SP) 
AAERRVEC +2, -(SP) 


#2$ aye ERRVEC 
#20000,R1 


(R 
(R1)+ 
1$ 
#2,R1 


3;SAVE RO ON THE STACK 
7;SAVE R1 ON THE STACK 
7;SAVE MEMORY ERROR VECTOR PS & PC 


:s IGNORE PARITY ERRORS WHILE SIZING 
:sSAVE PRESENT ERROR VECTOR PS & PC 
Poem THE STACK POINTER 


; «PUSH OLD PSW AND PC ON STACK 
sSAVE THE PSW IN @#ERRVEC+2 
$3SeT FOR’ TIMEOUT 
:zFIRST ADDRESS 
::TEST THIS ADDRESS 
:7STEP TO NEXT ADDRESS 
TRY ANOTHER 


BACK 
THE STACK 


RO, SP ; sRESTORE 
(SP)+, QFERRVEC +2" :;RESTORE ERROR VECTOR 


(SP)+, a#ERR 
(SP) +, eile” 
(SP) +,a4114 
R1,$LSTAD 
(SP)+,R1 
(SP)+,RO 


PC 
0 


-SBTTL TRAP DECODER 


J RARE EEAAKEEKEKKEEEKEEREREEEEEEKEKEEEEEEEREREEEERERREEEEREEEREKEEKKEKKEE 


: THIS ROUTINE WILL PICKUP THE LOWER BYTE OF ro ""TRAP’* INSTRUCTION 


TO INDEX THROUGH THE TRAP T 


:sRESTORE MEMORY ERROR VECTOR 
¢¢LAST ADDRESS 

RESTORE R1 
7 RESTORE RO 


:;CONTAINS THE LAST ADDRESS 


FOR THE STARTING ADDRESS 


:*AND USE IT TABLE 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


STRAP: 


MOV 


RO,-{SP) 


7: SAVE RO 


— Qe ~~ ee ee ee ee 


SEQ 0104 


rr ee em 
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TRAP DECODER 





SEQ 0105 
027244 016600 000002 MOV (SP), RO ::GET TRAP ADDRESS 
027250 005740 TST (RO) ;;BACKUP 3Y 2 
027252 111000 MvB (RO) RO ::GET RIGHT BYTE OF TRAP 
027254 006300 ASL RO :POSITION FOR-INDEXING 
027256 016000 027276 MOV STRPAD(RO).RO :: INDEX TO TABLE 
027262 000200 | RTS RO :;G0 TO ROUTINE 
: ;zTHIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 
027264 011646 $TRAP2: MOV (SP) ,=(SP) ::MOVE THE PC DOWN 
027266 016666 000004 w. 2002 MOV 4(SP),2(SP) ::MOVE THE PSW DOWN 
027274 000002 | RTI : RESTORE THE PSW 
.SBTTL TRAP TABLE 
;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:*BY THE ‘‘TRAP’’ INSTRUCTION. 
: ROUT INE 
027276 027264 $TRPAD: .WORD $TRAP2 
027300 024116 $TYPE  ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
027302 025134 STYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
027304 025110 STYPOS ;;CALL=TYPOS — TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
027306 025150 STYPON ;;CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
027310 025336 STYPDS ;;CALL=TYPDS — TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
027312 025632 SGTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 
027314 025562 SCKSWR ;;CALL=CKSWR - TRAP+7(104407) TEST FOR CHANGE IN SOFT-SwR 
027316 026044 SRDCHR ;;CALL=RDCHR =TPRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
027320 923050 SRDLIN ;;CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
027322 026220 SSAVREG ;;CALL=SAVREG TRAP+12(104412) SAVE RO-R5 ROUTINE 
027324 026256 SRESREG ;;CALL=RESREG TRAP+13(104413) RESTORE RO-R5S ROUTINE 
2568 027326 022266 SDSPLY ;;CALL=DISPLY TRAP+14(104414) ROUTINE TO TYPE ERROR MESSAGES 
2569 000032 $TERM=.-$TRPAD 
2570 
2577 


Basak Se oak ara eee le ene em —_ ae ee eee ee ee me ew me - - — @ —- -- 
4 


em eee -——— eee 
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SINGLE/DUAL PORT RH/RM DRIVER (REV 6.2) 
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42 027351 
0 2 


027357 


027350 000000 000000 000000 


SSS8s8s8 


SSSS8888 
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~SBTTL SINGLE/DUAL PORT RH/RM DRIVER (REV 6.2) FEBRUARY 1980 
sNEW DRIVE TYPE ID FOR RMO2 *exxxnanns 


; 10-AUG-77 ye 

= 10=MAR -78 THE SC, SCS CHANGES 

=NEW DRIVE VBE ID FOR RMOS *xxxxnenne 
sFEBRUARY 1980 -xxxxnnnnane 


;COPYRIGHT (C) 1977 
:DIGITAL EQUIPMENT CORP. 
:MAYNARD, MA 01754 


; AUTHOR(S): JIM LACEY/CHUCK HESS/ 


5 FEAR KKKKKEE 


STORAGE FOR RMDS, RMER1, RMERZ2, AND RMMR2 ON AN ERROR ‘'2"' 
; RME RMDS 


“RMERRS+2 = RMER1 
“RMERRS+4 = RMER2 
“RMERRS+6 = RMMR2 


RMERRS: .WORD 0,0,0,0 


> TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES) 
sDRVACT=0 IF DRIVE IS IDLE 
: DRVACT>O IF DRIVE IS ACTIVE WITH A COMMAND 
;DRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 


DRVACT: .BYTE QO sDRIVE 0 
-BYTE QO sDRIVE 1 
-BYTE 0 sDRIVE 2 
-BYTE 0 sDRIVE 3 
-BYTE 0 sDRIVE 4 
-BYTE 0Q sDRIVE 5 
-BYTE 0 sDRIVE 6 
-BYTE 0 sDRIVE 7 


; TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES) 
sDRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT 
sDRVSTA>O IF DRIVE IS ONLINE 
:DRVSTA<O IF DRIVE IS UNSAFE 


DRVSTA: .BYTE 0 sDRIVE 0 
BYTE 0 :DRIVE 1 
BYTE O :DRIVE 2 
BYTE 0O :DRIVE 3 
-BYTE OQ ZDRIVE 4 
BYTE QO :DRIVE 5 
BYTE 0 sDRIVE 6 
-BYi€é O sDRIVE 7 


; TABLE OF ay a TYPES (DRVTYP=8 BYTES) 
:DRVTYP=0 IF DRIVE IS NONE XT STENT (DRVSTA=0, ALSO) 
: DRVTYP=? IF DRIVE IS RMO5 ***« 





SEQ 0106 





5 
60 027370 


64 
65 
66 
67 


68 
69 027400 
72 027401 


85 
86 027412 
87 
88 
89 
90 
91 
92 027414 
93 


CZRMTAQ RMO5S/3/2 DR CMPT TST 
SINGLE /DUAL PORT RH/RM DRIVER (REV 6.2) FEBRUARY 


000 


ee ee ee ee —_—-~—— ~- _- —— 
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DRVTYP: .BYTE 0 sDRIVE 0 
BYTE 0O :DRIVE 1 
BYTE O sDRIVE 2 
BYTE OQ :DRIVE 3 
-BYTE 0O sDRIVE 4 
BYTE 0O :DRIVE 5 
BYTE OQ sDRIVE 6 
-BYTE 0 sDRIVE 7 


; TABLE OF opint PORT INITIALIZATION INDICATORS 
PINT=0 IF INITIALIZATION IS NOT ACTIVE ON THE DRIVE 
‘DPINT<O IF INITIALIZATION IS IN PROGRESS 


DPINT: .BYTE 0 DRIVE 0 
YTe GV sDRIVE 1 
-BYTE 0 sDRIVE 2 
-BYTE 0Q sDRIVE 3 
-BYTE 0 sDRIVE 4 
VIE G sDRIVE 5 
BYTE QO sDRIVE 6 
-BYTE 0 :DRIVE 7 


; TABLE OF PENDING DUAL PORT REQUESTS 
sDPRQS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE 
;DPRQS<O IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE 


DPRQS: .BYTE 0Q :DRIVE 0 
-BYTE 0 DRIVE 
BYTE 0 sDRIVE 2 
-BYTE QO sDRIVE 3 
-BYTE QO sDRIVE 4 
-BYTE QO sDRIVE 5 
-BYTE QO sDRIVE 6 
-BYTE 0 sDRIVE 7 


; TRANSFER WAIT wy (TRNSWT=1 WORD) 
sTHIS IS A_ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 
;’ DPB’* OF THE I/0 OPERATION. 


TRNSWT: .WORD 0 


; SEARCH WAIT fy (SRCHWT=1 apne 
sTHIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR os OF 
; THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND —* HE 1/0 
sREQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE 
;EACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE 0. 


SRCHWT: .WORD 0O 

7RM DRIVER ACTIVE FLAG ‘ACTDRV=1 BYTE) 
sACTDRV=0 IF DRIVER IS INACTIVE 
*ACTDRV>O IF DRIVER IS ACTIVE 


ACTDRV: .BYTE 0 


SOFTWARE TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE) 








95 
97 
98 


101 
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027415 


027416 


027425 


027426 


027435 


027436 


027440 


027442 
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000 


000000 


177777 


177777 


177777 
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PORT RH/RM DRIVER (REV 6.2) FEBRUARY 1980 


ee 


SEQ 0108 


sACTSTR=0 IF SOFTWARE TIMER ROUTINE IS 
:ACTSTR>O IF SOFTWARE TIMER ROUTINE IS 


ACTSTR: .BYTE OQ 


; UNLOAD Ary A (ULDFLG=8 BYTES) 
LG=0 IF NO UNLOAD COMMAND 
‘ ULDFLG>0 IF UNLOAD COMMAND IN PROGRESS 
;ULDFLG<O IF UNLOAD COMMAND IN WAIT QUEUE 


INACTIVE 
ACTIVE 


ULDFLG: .BYTE QO sDRIVE 0 
-BYTE OQ sDRIVE 1 
-BYTE 0Q ;DRIVE 2 
BYTE QO sDRIVE 3 
-BYTE OQ sDRIVE 4 
-BYTE 0 sDRIVE 5 
-BYTE QO sDRIVE 6 
-BYTE 0 sDRIVE 7 


;LOOK AHEAD COUNT (LACNT=8 BYTES) 
sLACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED 


LACNT: .BYTE Q :DRIVE 0 
-BYTE 0 sDRIVE 1 
-BYTE 0 s:DRIVE 2 
-BYTE 0 DRIVE 3 
-BYTE QO sDRIVE 4 
-BYTE 0 sDRIVE 5 
BYTE 0Q sDRIVE 6 
-BYTE QO sDRIVE 7 


; SAVE mae SM oy FLAG (SAVEFG =1 WORD) 
sSAVEFG <0 IF SAVE THE RH/RM REGISTERS WHEN THE 
S OPERATION IS COMPLETED AS PER (DFB+14). 
;SAVEFG=0 IF SAVE THE RH/RM REGISTERS, AS PER 
; (DPB+14), AFTER AN ERROR, 


SAVEFG: .WORD 0 


; SEEK FLAG ap et WORD) 
sSEEKFG=0 IF WHEN THE DISK ADDRESS ISN'T IN THE WINDOW 
sFOR A DATA TRANSFER START A SEARCH COMMAND 
;SEEKFG<O IF DATA TRANSFER WILL DO IMPLIED SEEKS, 
:DISREGARD THE WINDOW 


SEEKFG: .WORD -1 


; TIMEOUT TABLE (TIMER=8 WORDS) 
THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 


TIMER: .WORD -1 DRIVE 0 
-WORD -=1 DRIVE 1 
WORD =-1 sDRIVE 2 
WORD -1 sDRIVE 3 
WORD -1 DRIVE 4 
-WORD -=1 DRIVE 5 
-WORD -=1 DRIVE 6 


[on a 
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027460 


027462 


027473 
027474 
027476 
027500 
027504 
027506 


027510 


027512 
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: 
1 
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: 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
; 
; 
; 
1 
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. 
1 
1 
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; 
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: 
j 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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177777 


177777 


000003 


001000 


000200 


000005 


000240 
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-WORD =1 DRIVE 7 


;DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 WORD) 
;DTUW<O IF NO DATA TRANSFER UNDERWAY 
sDTUW=+N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 


DTUW: .WORD =1 
nang: 8 rt TABLE (ATABIT=8 BYTES) 


TABLE — THE CORRESPONDING BIT TO EACH DRIVES 
sATTENTION BIT 


ATABIT: .BYTE 1 ;DRIVE 0 
-BYTE 2 DRIVE 1 
-BYTE 4 DRIVE 2 
-BYTE 10 ;DRIVE 3 
-BYTE 20 DRIVE 4 
-BYTE 40 DRIVE 5 
-BYTE 100 s;DRIVE 6 
-BYTE 200 DRIVE 7 


:FSRM TO RH11/RH70 *“MASSBUS CONTROL BUS PARITY ERRORS'’ (MCPE) ALLOWED BEFORE 
;CALLING IT FATAL (MCPEMX=1 WORD) 


MCPEMX: .WORD 3 


s STORAGE FOR RMADR (THE FIRST ADDRESS (776700) OF THE RH/RM), 
;RMVEC (THE VECTOR ADDRESS (254)), AND RMVEC+2 (THE BR LEVEL (5)). 


RMADR: .WORD 176700 
RMVEC: .WORD 254,5*32. 


s>MAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD) 
MXLACT: .WORD 4 


sMAXIMUM DELTA ge Oe 8 SECTORS (MXDLTA=1 WORD) 
* 


MXDLTA: .WORD 
sMINIMUM DELTA DELAY IS 2 SECTORS (MNDLTA=1 WORD) 
MNDLTA: .WORD  2%64. 


;MAXIMUM SEARCH FOR I/0 WINDOW IS 5 SECTORS (MXWNDW=1 WORD) 
MXWNDW: .WORD 5 


sDEFINITIONS OF THE RH/RM ADDRESS INDEXES 


RMCS1=0 sCONTROL AND STATUS REGISTER #1 (DRIVE REG. 00) 
RMWC=2 ;WORD COUNT REGISTER (NOT A DRIVE REG) 

= ;UNIBUS ADDRESS REGISTER (NOT A DRIVE REG) 
RMDA= sDESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 05) 
RMCS2=10 ;CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG) 
RMDS=12 :DRIVE STATUS REGISTER ta by REG 01) 
RMER1=14 sERROR REGISTER #1 (DRIVE R 02) 
RMAS=16 ; ATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 94) 
RMLA=20 :LOOK AHEAD REGISTER | REG. tae 
RMDB=22 ;DATA BUFFER REGISTER (NOT A DRIVE R 
RMMR 1=24 :MAINTAINABILITY REGISTER (DRIVE REG. *63) 
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177776 


000010 


;DRIVE TYPE REGISTER (DRIVE REG. 06) 

; SERIAL NUMBER REGISTER ey REG. 10) 

;OFFSET REGISTER (DRIVE REG. 11) 

aa CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 
7D ADDRESS REGISTER (DRIVE REG. 13) 
‘MAINTENANCE REGISTER #2 

sERROR REGISTER #2 (DRIVE REG. 15) 

sECC POSITION REGISTER (DRIVE REG. 16) 

sECC PATTERN REGISTER (DRIVE REG. 17) 


.SBTTL RH/RM DRIVER INITIALIZATION CODE 
>THIS ROUTINE WILL DETERMINE WHICH RM DRIVES ARE 


sAVAILABLE FOR TESTING 


AND SET THE DRVSTA INDICATOR 


;TO THE PROPER STATE FOR EACH DRIVE. 
:NOTE: THIS ROUTINE CALLS DRVINT 


*CALL 


JSR 
RETURN 


PC,RMINIT 


sNOTE: THE *P* OR ‘L* CLOCK MUST BE STARTED 


RMINIT: SAVREG 


1$: 


2$: 


3$: 


4$: 
5$: 


6$: 


:SAVE RO - RS 
PS_-(SP) =SAVE THE PRESENT PROCESSOR STATUS 
#<5%32.>,PS =CHANGE THE PRIORITY TO 5 
PC, CLRQUE :CLEAR ALL REQUEST QUEUES 
#RMERRS .R1 -FIRST ADDRESS TO BE CLEARED 
#SEEKFG.R2 :LAST ADDRESS TO BE CLEARED 
(R1)+ > CLEAR 
R1,R2 7ARE We DONE ? 
1$ F NO 
#DTUW,R2 “LAST ADDRESS 
#-1,(R1)+ : INITIALIZE 
P = DONE ? 
2$ ;LOOP IF NO 
DRVSTA =SET ALL DRIVES TO OFFLINE 
DRVSTA+2 
DRVSTA+4 
DRVSTA+6 
RMVEC,R3 :SETUP THE RH/RM VECTOR 
#ISR, (R3)+ 
RMVEC+2, (R3) 
; :FIRST ADDRESS OF RH/RM 
#CLR,RMCS2(R4) =MASSBUS INIT 
R1 *START WITH DRIVE 0 
RO. DRVINT “INIT THE DRIVE 
“$ :"DVA' NOT SET OR PARITY ERROR 
DRVSTA(R1) =SET DRIVE STATUS TO OFFLINE 
R :GO TO NEXT DRIVE 
#°C7.R1 MASK OUT UNUSED BITS 
3$ *BR IF MORE DRIVES TO GO 
#7,R1 *START WITH DRIVE 7 
PS =CLEAR THE PROCESSOR STATUS 
DPINT(R1) :WAITING FOR DRIVE TO SWITCH PORTS ? 


en ee - eee a ee ee ees 


SEQ 0110 


a ee ee ee ee 
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gm DRIVER INITIALIZATION CODE SEQ 0111 


254 027676 00140 BEQ R$ :BR NOT WAITING 
255 027700 004737 035036 JSR PC.SET.IE *SET INTERRUPT 
256 027704 105761 027370 7$: TSTB) ~—s_ DPINT(R1) =DRIVE SWITCHED PORTS ? 
257 027710 001375 BNE 7$ “BR IF NOT 
258 027712 005301 8$: DEC R1 -GO TO THE NEXT DRIVE 
259 027714 100 BPL 6$ :CHECK NEXT DRIV 
260 027716 012637 177776 MOV (SP) +,PS “RESTORE THE PROCESSOR STATUS 
261 027722 104413 RESREG sRESTORE RO = R5 
262 027724 000207 RTS PC “BYE-BYE 
264 :DRIVE INITILIZATION ROUTINE 
265 = THIS ROUTINE DET ERMINES IF A DRIVE EXIST AND IF IT IS 
266 :AN RMO5S/3/2. IF IT IS, A ‘'READ-IN PRESET'' Is ISSUED AND FMT16 
267 -IS SET TO A ‘l''. THEN MOL, DPR, DRY, AND VV ARE CHECKED TO 
268 : INSURE THEY ARE ALL ON "AND DEPENDING ON THEIR STATE, 
269 : DRVSTA IS SET TO THE PROPER CONDITION. 
271 : MOV ADRVNUM,R1 ;DRIVE NUMBER TO RI 
272 ; MOV RMADR ,R4 ;UNIBUS ADDRESS OF RH/RM (RMCS1) 
273 : JSR RO, DRVINT :CALLED BY A JSR 
274 : RETURN] > ERROR OCCURRED (PARITY) 
275 : RE TURN2 *NORMAL RETURN 
sf | 
278 027726 010546 hf MOV R5,-(SP) ; SAVE R5 
027730 105061 027350 DULP: CLRB  DRVSTA(R1) “START DRIVE STATUS AS OFFLINE 
280 027734 105061 027360 CLRB —s DRVTYP(R1) =CLEAR THE DRIVE TYPE INDICATOR 
281 027740 105061 027416 CLRB —sULDFLG(R1) :CLEAR THE UNLOAD FLAG 
282 027744 010164 000010 MOV R1,RMCS2(R4)  :SELECT A DRIVE 
283 027750 112764 000111 000000 MOVB  #111,RMCS1(R4) :DO A DRIVE CLEAR COMMAND (& SEIZE DRIVE) 
027756 032764 01 000010 BIT #BIT12,RMCS2(R4) sNONEXISTENT DRIVE? 
285 027764 001403 BEQ 1$ :NO 
027766 004737 035036 JSR PC,SET.IE :GO SET ‘‘IE’’ WITHOUT A ‘‘TRE’' 
87 027772 000520 BR 6$ sLEAVE THIS ROUTINE 
289 027774 105061 027350 1$: CLRB DRVSTA(R1) ;SET DRIVE STATUS TO OFFLINE 
290 030000 032764 004000 000000 BIT #81T11,RMCS1(R4)- :SEE IF DRIVE AVAILABLE 
291 030006 001750 BEQ DULP :BR IF DRIVE NOT AVAILABLE 
292 030010 037 034346 JSR RO.RD.RM ;READ THE DRIVE TYPE REG. 
293 030014 26 RMD T 
294 030016 030260 8$ :ERROR RETURN ADDRESS 
295 030020 012605 MOV (SP)+,R5 =PUT DRIVE TYPE IN R5 
296 030022 112761 000004 027360 MOVB #4,DRVTYP(R1)  =SET RMO3 INDICATOR 
297 030030 022705 020024 CMP #20024 ,R5 :SINGLE PORT RMO3 ? 
030034 001431 BEQ 2$ “BR IF YES 
299 030036 022705 024024 CMP #24024 .R5 “DUAL PORT RMO3 ? 
300 030042 001426 BEQ $ “BR IF YES 
030044 112761 000005 027360 MOVB #5,DRVTYP(R1)  :SET RMO2 INDICATOR 
302 030052 022705 020025 CMP #20025.R5 :SINGLE PORT RMO2 ? 
030056 001420 BEQ $ :BR IF SO 
030060 022705 024025 CMP #24025,R5 ; DUAL PORT RMO2 ? 
305 030064 00141 BEQ F SO 
030066 112761 000007 027360 MOVB #7.DRVTYP(R1) = SET RMOS INDICATOR 
307 030074 022705 020027 CMP #20027.R5 :SINGLE PORT RMOS ? 
308 030100 001407 BEQ “BR IF YES 
309 030102 022705 024027 CMP #24027.R5 “DUAL PORT RMOS ? 
030 14 2$ “BR IF YES 
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RH/RM DRIVER INITIALIZATION CODE SEQ 0112 


311 030110 112761 177777 027360 MOVB  #=1,DRVTYP(R1) :SET INDICATOR TO ‘OTHER’ 
312 030116 000446 BR 6$ “EXIT 
314 030120 012746 000121 2$: MOV #121,-(SP) :DO A ''READ-IN PRESET'' 
315 030124 004037 034526 JSR RO, WRT .RM 
316 030130 RMCS1 
317 030132 030 $ 
318 030134 012746 010000 MOV WRIT12,-(SP) |: SET FMT16=1 
319 030140 004 034526 JSR RO, WRT .RM 
320 030144 000032 RMOF 
321 030146 030260 8$ 
322 030150 004037 034346 JSR RO.RD.RM :READ RMDS 
323 030154 000012 RMDS 
324 030156 0302 8$ 
325 030160 012605 MOV (SP)+,R5 :AND SAVE IT IN RS 
030162 BPL 4 “BR IF ATA=0 
327 030164 116164 027464 000016 MOVB _—sATABIT(R1), RMAS (Rd) :CLEAR ATTENTION BIT 
328 030172 004037 034346 JSR RO,RD.RM FIND OUT WHY ATA=1 
329 030176 RMER1 
30 030 030260 8$ 
331 030202 0061 ROL (SP) + :1S IT UNSAFE? 
332 030204 1 BPLSti«ysé#AS$ “BR IF NOT 
333 030206 112761 177777 027350 MOVB  #=1,DRVSTA(R1) =SET UNSAFE INDICATOR 
334 030214 BR 6$ “EXIT 
336 030216 005105 4$: COM RS K MOL, DPR, DRY, AND VV 
337 030220 042705 167077 BIC #°C<BIT12!B1T08!81707 BI TDG>” R5 
* 224 001 BNE 6$ ;BR IF MOL, DPR. DRY. OR VV IS CLEAR 
339 030226 112761 000001 027350 MOVB #1,DRVSTA(R1) SET DRIVE STATUS TO ONLINE 
030234 0057 6S: TST (RO) + =STEP OVER THE ERROR RETURN 
1 030236 000410 BR EXIT 
342 030240 006 7$: ASL R1 “CHANGE INDEX TO ADDRESS WORDS 
343 030242 012761 060000 027442 MOV #60000, TIMER(R1)° :START 2 SEC TIMER 
344 030250 ASR R1 RESTORE R1 
345 030252 112761 177777 027370 MOVB  #-1,DPINT(R1) 2SET PORT INITIALIZE INIDICATOR 
346 030260 012605 8S: MOV (SP)+,R5 “RESTORE R5 
347 030262 200 RTS RO *EXI 
349 sREQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 
<e5 > CALL 
353 : JSR RO. RMOS :CALL THE RMOS DRIVER 
354 : PNTADR “ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK 
355 : RETURN >RETURN HERE IF QUEUE IS FULL 
356 : RETURN2 sRETURN HERE IF REQUEST IS IN QUEUE OR THERE 
397 71S AN ERROR CONDITION 
359 030264 013746 177776 MOV PS,-(SP) ; SAVE _THE CALLING STATUS 
360 030270 013737 097508 177776 MOV RMVEC+2,PS =DON'T ALLOW ANY RM INTERRUPTS 
112737 000001 027414 MOVB #1.ACTDRV :SET "ACTIVE DRIVER’ FLAG 
362 0 104412 SAVREG “SAVE RO - RS 
011002 MOV (RO) .R2 “PICKUP THE DRIVE PARAMETER BLOCK POINTER 
005062 000016 CLR 16(R2) “CLEAR THE STATUS/ERROR INDICATOR 
111201 MOVB  (R2).R1 :PICKUP THE DRIVE NUMBER 
013704 027476 MOV RMADR,R4 “UNIBUS ADDRESS OF RMCS1 
105761 027350 TSTB —s DRVSTA(R1) =CHECK DRIVES STATUS 
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RH/RM DRIVER INITIALIZATION CODE 
368 003014 
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030 BGT 1$ ;BR IF ONLINE 
369 030330 027416 TSTB ULDFLG(R1) ; UNLOAD COMMAND IN QUEUE? 
370 030334 BNE ;BR IF Y 
371 030336 027370 TSTB DPINT(R1) oie TO INIT THE DRIVE 
372 030342 BNE :BR YES 
373 030344 027726 JSR RO,DRVINT :GO INIT. THE DRIVE 
374 030350 BR ZER 
375 030352 027350 TSTB DRVSTA(R1) :IS ge, STATUS ONLINE? 
376 030356 BLE $ :BR T 
377 030360 027400 1$: TSTB DPRQS(R1) ZOUTSTANDING PORT REQUEST FOR THE DRIVE ? 
378 030364 BNE 5$ :BR IF YES 
379 030366 000010 MOV R1,RMCS2(R4) sSELECT THE DRIVE 
380 030372 035500 JSR RO,DRVQUE :PUT THIS ae IN QUEUE 
381 030376 BR 9$ sQUEVE IS FULL 
382 030400 000103 000002 CMPB #103,2(R2) sis ee REQ. FOR AN UNLOAD? 
383 030406 BNE 2 :BR F NO 
384 030410 177777 027416 MOVB #-1,ULDFLG(R1) ;SET THE “UNLOAD IN QUEUE’ FLAG 
385 030416 027340 2$: TSTB DRVACT(R1) :IS THIS DRIVE ACTIVE? 
386 030422 BNE 8$ :BR IF YES 
387 030424 030556 JSR PC,OPT sCALL THE OPTIMIZER 
388 030430 BR $ 
ad peeah 120000 000016 3$: ~ #B1T15!B1713, cee SET THE “UNLOAD IN QUEUE*’ ERROR FLAG 
391 030442 031636 4$: JSR PC,CI7 £60 HANDLE THE PARITY ERROR 
392 030446 BR 8$ 
393 030450 035500 5$: JSR RO, DRVQUE sPUT REQUEST IN QUEUE 
394 030454 BR sQUEVE IS FULL 
395 030456 000100 BIT #B1T06, (R4) :IE BIT SET ? 
030462 BNE :YES 
397 030464 035036 JSR PC,SET.IE :SET THE INTERRUPT 
398 030470 000420 BR RETURN 
399 030472 105761 027350 6$: TSTB DRVSTA(R1) sSEE IF DRIVE OFFLINE OR UNSAFE 
400 030476 002412 BLT 7$ ;BR E 
401 030500 012762 140000 000016 MOV #B81T15!BIT14,16(R2) ize OFFLINE ERROR INDICATOR 
030506 105761 027360 TSTB DRVTYP(R1) ;SEE_IF OFFLINE OR NONEXISTENT 
403 030512 001007 BNE $ >BR IF OFFLINE 
404 030514 012762 100002 000016 MOV #B1T15!BIT01, 16(R2) sREPORT DRIVE NONEXISTENT 
405 030522 000403 BR 
406 030524 012762 110000 000016 7S: MOV #BIT15!BIT12, 16¢R2) sDRIVE IS UNSAFE 
407 030532 104413 8$: RESREG RESTORE RO - R5 
408 030534 005720 TST (RO) + :SETUP FOR NORMAL RET 
030536 000401 BR 10$ FINISH " net EXIT 
410 030540 104413 9$: RESREG sRESTORE R 
411 030542 005720 2 10$: TST (RO) + CORRECT THE ” RETURN ADDRESS 
412 030544 105037 027414 CLRB ACTDRV sCLEAR “ACTIVE DRIVER’' FLAG 
413 030550 012637 177776 MOV (SP)+,PS :RETURN 'PS'' TO USER LEVEL 
ase 030554 000200 RTS RO ;RETURN TO CALLER 
rb sOPTIMIZER-CALLED FOR A PARTICULAR DRIVE 
418 ; CALL 
419 ; ADRVNUM ,R1 sDRIVE NUMBER TO R1 
re : JSR PC OPT ;SETUP A COMMAND 
422 030556 104412 OPT: SAVREG :SAVE RO = R5 
423 030560 013746 177776 MOV PS,~-(SP) ;SAVE PROC. STATUS 
424 030564 146137 027464 027412 BICB ATABIT(R1), SRCHWT :CLEAR LA SEACH FLAG 





425 030572 
426 030576 
427 
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03 


CZRMTAQ RMO5/3/2 DR CMPT TST 
RH/RM DRIVER INITIALIZATION CODE 


027400 
035554 
000010 
000111 
004000 
027350 
035576 
140000 
027350 
110000 


000150 
031222 
027462 
027440 
032174 


031014 
031122 
177777 


060000 
031636 
000100 


035036 
177776 


000000 
000000 


000016 


000016 


000002 


027400 


027442 





10$: 


2$: 


3$: 
4$: 
5$: 


6$: 
7$: 


8$: 


MOV 
RESREG 
RTS 


DPRQS(R1) 
PC,GETREQ 
R2 


CS2(R4) 
Mit RMCS1(R4) 
WEITi1 »RMCS1(R4) 


DRVSTA(R1) 
1$ 


PC 


#111,-(SP) 
RO,WRT.RM 


#B1T11, (R4) 
g190.ethe) 


PC,C14 
8$ 
DTUW 
4$ 
SEEKFG 
3$ 
RO,LA 
8L 


4$ 
PC,CI1 
PC,CI3 
8$ 


#-1 ,DPRQS(R1) 
tae 

960000, TIMERCRS) 
PC,CI7 

#BITO6, (R4) 

8$ 


PC,SET.IE 
(SP)+,PS 


PC 


: COMMAND INITIATOR 


CALL 


#DRVNUM ,R1 
#DPB,R2 
PC CI? 


»POPQUE : 
Sairie bitte. 16ckes 
DRVSTA(R1) 


8$ sBR T 
#B1T15'B1T12,16(R2) 
8$ 7BR 


ee we eee ee + —— —c—meeee- 
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oer THE PORT REQ FLAG **#« 
T *DPB'' POINTER "1 REQUEST 
Is THERE A REQUEST IN QUEUE? 


“BR TO EXIT 
S LOAD THE DRIVE ADDRESS **#ea08 
sCLEAR THE DRIVE 


sDVA SET ? 
;TO PROT REQUEST ,IF NOT 
:1S DRIVE ONLINE? 


NO=-REMOVE REQUEST FROM QUEUE 
SET OFFLINE STATUS/ERROR INDICATOR 
1VE UNSAFE ? 


O EXIT IF NOT 
cil? UNSAFE STATUS/ERROR INDICATOR 


sLOAD COMMAND ONTO THE STACK 
sLOAD THE REGISTER 

;REGISTER INCREMENT 
sERROR RETURN ADDRESS 

sDRIVE AVAILABLE ? 


:BR IF NOT 
4+ ug REQUEST FOR 1/0? 
:CALL THE COMMAND INITIATOR 


:BR TO EXIT 

sDATA TRANSFER UNDERWAY? 
:YES--GO START A SEARCH 
:D0_IMPLIED SEEKS? 


sNO--DO LOOK AHEAD 

sRETURN HERE ON A PARITY ERROR 
:GO START A SEARCH 

:START A DATA TRANSFER 


:START A SEARCH 

:GO TO THE EXIT 

:SET PORT REQUEST INDICATOR 
eSET UP TO ADDRESS WORDS 


INDEX 
sSTART 10 SEC TIMER 


:PROCESS THE PARITY ERROR 
+SEE yg "IE" ALREADY SET 


SET ""TE’’ WITHOUT A ‘‘TRE'’ 
RESTORE PROC. STATUS 
sRESTORE RO = R5 


:DRIVE ao we 
: ADDRESS OF 
:C1?= C11, C13. OR C14 


SEQ 0114 


ee eee ae we ee ee 
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CZRMTAOQ RMO5/3/2 DR CMPT TST 
RH/RM DRIVER INITIALIZATION CODE 


SEQ 0115 





cm re ee es ee ee +e ee 


482 WHERE : 
483 : :C11=DATA TRANSFER 
484 : :CI2=SEARCH REQUESTED BY DATA XFER 
489 : C1S=NOT DATA TRANSFER 
487 031014 737 035576 Cll: JSR PC ,POPQUE :REMOVE REQUEST FROM ‘DRIVES WAIT’ QUEUE 
488 031020 010237 027410 MOV R2. TRNSWT :PUT REQ. IN TRANSFER WAIT QUEUE 
489 031024 010203 MOV R2,R3 :DPB ADDRESS TO R3 
031026 013704 027476 MOV RMADR,R4G :RMCS1 ADDRESS 
491 031032 010164 000010 MOV R1,RMCS2(R4) =SELECT DRIVE 
031036 062703 000004 ADD a, “RS :DESIRED WORD COUNT 
493 031042 704 000002 ADD sRMWC ADDRESS 
031046 012324 MOV ‘aie. (RG)+ :LOAD WORD COUNT 
495 031050 012324 MOV (R3) +, (RG)+ :LOAD BUFFER ADDRESS 
496 031052 012346 MOV (R3)+.=(SP) :LOAD SECTOR AND TRACK 
497 031054 037 034526 JSR 0,WRT.RM :CALL THE LOAD(WRITE) ROUTINE 
498 031 RMD : INDEX OF REGISTER TO LOAD 
499 031062 031636 C17 :ERROR RETURN ADDRESS 
500 031 012346 MOV (R3)+,=(SP) :LOAD CYLINDER ADDRESS 
501 031 037 034526 JSR RO,WRT.RM 
502 031072 34 RMDC 
503 031074 031636 C17 
504 031076 016246 000002 MOV 2(R2) ,-(SP) :LOAD ''COMMAND+G0"', ''A17&A16'", AND ‘PSEL"' 
505 031102 037 034526 JSR RO.WRT.RM 
06 031106 RMCS1 
507 031110 031636 C17 
508 031112 010137 027462 MOV R1,DTUW :SET 'DATA TRANSFER UNDERWAY'' 
509 031116 137 031600 JMP c15 
510 031122 013704 027476 C13: MOV RMADR, :RMCS1 ADDRESS 
511 031126 010164 000010 MOV R1 PESO RG) “SELECT DRIVE 
512 031132 016246 000012 MOV 12(R2) ,-(SP) :DESIRED CYLINDER ADDRESS 
513 031136 037 034526 JSR RO,WRT.RM 
514 031142 000034 RMDC 
515 031144 031636 C17 
516 031146 116203 000010 MOVB  10(R2).R3 :PICKUP SECTOR ADDRESS 
517 : SUB MXWNDW,R3 *BACKUP BY MAX. SEARCH FOR I/0 WINDOW 
518 : BGE 1$ 
519 : ADD #32. RB. 
520 031152 010346 i$: MOV : COMBINE THE ADJUSTED SECTOR WITH 
521 031154 042716 177740 BIC Ra e7seo (SP) :CHOP OF ALL EXENTED BITS .IF ANY 
522 031160 116266 000011 000001 MO 11(R2),1(SP) =THE DESIRED TRACK 
523 031166 037 034526 JSR WRT RM :LOAD DESIRED TRACK & SECTOR 
524 031172 RMD 
525 031174 031636 C17 
526 031176 012746 000131 MOV #131,-(SP) :START A SEARCH 
527 031202 037 034526 JSR RO,WRT.RM 
528 031206 RMCS1 
529 031210 031636 C17 
530 031212 156137 027464 027412 BISB ATABIT(R1),SRCHWT :SET ‘SEARCH WAIT’' KEY 
531 031220 567 BR CIS 
532 031222 013704 027476 C14: MOV R,R4 :RMCS1 ADDRESS 
533 031226 010164 000010 MOV R1,RMCS2(R4) ;SELECT DRIVE 
031232 116203 000002 MOVB 2(R2),R3 ‘PICKUP THE REQUESTED COMMAND 
535 031236 122703 000131 CMPBsa#'131_R3 31S IT A SEARCH COMMAND? 
$36 031242 001007 BNE 1$ F NO 
537 031244 016246 000010 MOV 10(R2) ,-(SP) “LOAD DESIRED TRACK & SECTOR 
538 031250 037 034526 JSR RO,WRT. 


546 
547 031302 
548 0 


559 031342 
560 346 
561 031350 
962 0313 
5635 031356 
564 

565 031364 


031450 
581 031452 
582 031454 
5835 031456 
984 031462 
+44 031464 
587 031470 
588 76 


000006 
031636 
122703 
00 

016246 
004037 


CZRMTAO RM05/3/2 DR CMPT TST 
RH/RM DRIVER INITIALIZATION CODE 


539 031254 


000105 
000012 
034526 
000115 
034346 


000001 
034526 


000107 
000117 
000103 


000001 
027350 
000001 
034526 


000143 
034346 


000001 
034526 





— ales - 


i ee ee es ee — << 
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027340 
027416 


000001 


031506 


031506 


1$: 
2$: 


3$: 


4$: 


5$: 


6$: 
7$: 


8$: 
9$: 


2$ 

#105 ,R3 
12(R2) ,=(SP) 
RO,WRT RM 


C16 
#115,R3 
4$ 
RO,RD.RM 
1(R2) , (SP) 
RO,WRT.RM 
C16 
#107,R3 
#117,R3 

CI 
#103,R3 
5$ 

#1 ,DRVACT(R1) 


DRVSTA(R1) 
#1 ,ULDFLG(R1) 
R3 P) 


— 
e 


RO,WRT.RM 


PC 
#143,R3 
RO,RD.RM 


1(R2),1(SP) 
RO,WRT.RM 


12$ 
#141,R3 
6(R2) ,R3 
10(R2) ,9$ 
11(R2), °RS 
RO,RD. RM 
(SP)+, (R3)+ 
9$,R5 


R 
12$ 
#2,9$ 


* CYLINDER 
i. SEEK COMMAND 


:IS IT + ‘OFF SET’’ COMMAND? 


IF 
“MERGE Wa OFFSET VALUE INTO RMOF 
;BUT DON'T CHANGE THE UPPER 


sBYTE WHEN LOADING THE 
sREGISTER (RMOF) 

START THE COMMAND 

i Seg ETERS * COMMAND ? 
IT A_ RETURN TO CENTER? 

IF YES 

4H ‘UNLOAD’ COMMAND? 
“SET THE DRIVE ACTIVE INDICATOR 
sPUT DRIVE STATUS TO OFFLINE 
¢SET "UNLOAD 


IN PROGRESS** FLAG 
sSTART THE *UNLOAD** COMMAND 


a Et pet Sota: 
et 


sRETURN TO USER 
:IS HY A *'SET FORMAT’ COMMAND? 


:BR NO 
;READ THE OFFSET REGISTER 


s COMBINE *FMT16"',"ECI"*, AND “HCI** 
;LOAD 'FMT16"', "ECI', AND/OR ‘HCI"". 


:I1S IT A “GET REGISTER’* COMMAND? 
:BR IF NO 

sPOINTS TO 1ST ADDRESS OF WHERE 
:TO PUT THE REGISTER(S) 

:INIT. THE INDEX FOR THE FIRST REG. 
: INDEX OF LAST REG. MOVE 

:READ RH/RM REGISTER 

s INDEX OF REG. TO READ 


GET THE CONTENTS OF RH/RM REG. 
sLAST REG. BEEN READ? 

:GET OUT IF YES 

: INCREASE THE INDEX BY 2 


ee re ee ee es ~~. = =~ 


SEQ 0116 


59% 031530 
597 031532 


34 
619 031636 
620 
621 031644 
622 
623 031646 
624 031650 
625 031652 
626 
627 031660 
628 664 


635 031714 
636 

637 031720 
638 031722 
639 031726 

640 031734 

641 031736 

642 031740 
643 

644 031746 


66 
25 031772 


000207 
012762 
012746 
004037 


020137 


CZRMTAO RMOS/3/2 DR CMPT TST 
RH/RM DRIVER INITIALIZATION CODE 


000145 
034526 
035576 
000200 
027436 
034720 


060000 
000001 


034526 


010000 


104000 
000111 
034526 
035460 
027400 
027416 


027340 
027410 


027410 
177777 


010000 


027340 


027400 


027410 
027462 








mmf Ot en me eee eee 
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000016 


027442 
027340 


000010 


000016 


027462 


000010 


10$: 
11$: 


12$: 


13$: 
C15: 


C16: 


223: 


8S :LOOP=-MORE TO READ 

#145,R3 : 1S 17 ASELECT DRIVE’’ COMMAND? 
R3,-(SP) *LOAD THE COMMAND 

RO.WRT.RM 


sREMOVE REQ. FROM QUEUE 
;SET THE ‘D IT 


PC ,POPQU.. 
#B1T07,16(R2) 
SAVEFG : SAVE, THE RH/RM REGISTERS? 


13$ NO 

PC,SVRH70 ;YES--GO SAVE THE REGISTERS 

“ ;RETURN TO USER 

+ ates mates sSET A ONE SECOND TIMER 
#1,DRVACT(R1) ;SET THE DRIVE ACTIVE 

P ;RETURN TO THE USER 

R3,~(SP) sLOAD THE COMMAND 

RO,WRT.RM 


CI5 
ee i NON-EXISTENT ? 


R2 a ANYTHING IN QUEUE ? 

C17B “BR IF NO 
2$ -BR IF QUEUE IS THERE 

PC OTHERWISE EXIT 
#B1T15'BIT11, 16(R2) SET. ‘PARITY** ERROR INDICATOR 
PC,SVRH70 :G0 SAVE THE RH/RM REGISTERS 
#111 7 (SP) DO A ‘DRIVE CLEAR 
RO.WRT.RM 
PC,EMPTYQ sEMPTY THE QUEUE 
DPRQS(R1) ;CLEAR THE PORT REQUEST FLAG 
ULDFLG(R1) ;CLEAR THE UNLOAD IN QUEUE FLAG 
DRVACT(R1) *DRIVE IS IDLE 
R2, TRNSWT :IF THIS DRIVE HAD AN 1/0 REQUEST 
R1,DTUW IF THIS DRIVE HAD AN I/0 REQUEST 
1$ 7 IN PROGRESS CLEAR ALL OF THE FLAGS 
TRNSWT 
+ ~DTUW 

sSAVE RO - RS 

#B1T12,RMCS2(R4) sIS ‘NED SET ? 

1$ : YES 
R1 
R3 
DRVACT(R1) DRIVE ACTIVE? 

5$ ; NO 
22S ;BR IF IN ACTIVE 
DPRQS(R1) ;PORT REQUEST 

5 :BR IF NUT 

TRNSWT ,R2 :GET THE ‘"TRANSFER WAIT’* QUEUE 
R1,DTUW :DID THIS DRIVE HAVE AN I/O IN PROGRESS? 


SEQ 0117 





653 031776 
654 0 


ofS 


699 032174 
700 032200 


701 032204 
702 032210 


709 032240 


CZRMTAQ RMO5/3/2 DR CMPT TST 
RH/RM DRIVER INITIALIZATION CODE 


035554 


010000 
100002 
102000 
177777 
027340 
027400 
027462 


177777 


000002 
177770 
177777 


027476 
000010 
034346 
157577 
000200 


027426 
027426 


ee eee mes ee 
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000910 
000016 
000016 
027442 


027462 


000010 


4 


027462 


000010 


027504 


2$: 


3$: 


5$: 


6$: 


7$: 


2$ 
PC,GETREQ 
Re 


4$ 
#B1T12,RMCS2(R4) 
$ ;BR 
#81T15'!BIT01,16(R2) 
: CON 
#81T15'B1T10, 16(R2) 
PC, SVRH70 AV 
#-1, TIMER(R3) 


DRVACT(R1) 
DPRQS(R1) 
R1,DTUW 
5$ 

tld 


RN 
ULDFLG(R1) 


*BITIS. RMCS2(R4) 
6$ 


R1 

#2,R3 
#*C7,R1 
1$ 

4-1 ,DTUW 
TRNSWT 
PC,CLR 


QUE 
#CLR,RMCS2(R4) 
7$ 


PC,EMPTYQ 
DRVSTA(R1) 
DRVTYP(R1) 
PC,SET.IE 


PC 


sLOOK AHEAD ROUTINE 


> CALL 


A#DRVNUM ,R1 
Re 


RMADR ,R4 
SOAR pee 


PS af (SP) 


#200, ( 
3$ 
LACNT(R1) 


LACNT(R1) »MXLACT 
2$ 


SEQ 0118 


;BR_IF YES 
GET THE DPB POINTER 
; QUEUE ENTRY FOR DRIVE ? 


NOT 
;‘NED* SET ? 
SET "DRIVE NON-EXISTENT’ INDICATOR 


SET “NON-CLEARABLE PARITY'’ ERROR INDICATOR 
;SAVE RH/RM REGISTERS 
sSTOP THE TIMER 
:SET aa Ge ACTIVE’’ TO IDLE 
sCLEAR PORT REQUEST FLAG 
:1S THIS DRIVE SETUP FOR A TRANSFER 


IF NOT 
“RESET THE INDICATOR 
sCLEAR THE TRANSFER QUEUE 
CLEAR UNLOAD FLAG 
t MED" SET. ? 


;BR: IF YES 
=MOVE TO THE NEXT DRIVE 


:BR IF MORE DRIVES 
sNO DATA TRANSFERS UNDERWAY 
sCLEAR THE ‘TRANSFER WAIT" QUEUE 
:CLEAR ALL OF THE REQUEST QUEUES 
:DO A MASSBUS INIT. 

ONT INUE 


st 

;CLEAR THE DRIVE’S QUEUE 

;SET DRIVE TO OFFLINE 

;CLEAR THE DRIVE TYPE INDICATOR 
“SET ""IE'* WITHOUT °'TRE*' 

=RESTORE RO = RS 

RETURN 


:DRIVE NUMBER 
TO 


:POIN DPB 
:GO CHECK THE WINDOW 
sERR URN 


SEARCH 
;START A DATA TRANSFER 


:GET RMCS1°S ADDRESS 
>SELECT DRIVE 
;READ DRIVE STATUS 


sERROR RETURN ADDRESS 
:0N CYLINDER 
;PIP= 0, DRY=S1?” 


; INCREMENT iy Rs ol AHEAD COUNT 


mm te ee ee ee” 


ae ae _+ ao ee ew ee see we 
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CZRMTAO RMOS/3/2 DR CMPT TST 
RH/RM DRIVER INITIALIZATION CODE 


710 032242 116203 000010 MOVB 10(R2) ,R3 ;GET DESIRED SECTOR a AND 
711 082246 000303 S R3 :MULT. BY 64=~ALIGN WITH 
12 032250 006203 ASR R3 ;LOOK AHEAD REGISTER 
713 032252 006203 ASR RB wer 
714 032254 012737 000340 177776 MOV «#340, ;PRIORITY LEVEL ‘7 
715 032262 004037 034346 JSR RO,RD.RM sREAD LOOK AHEAD REGISTER 
716 032266 0000 RMLA 
717 032270 032342 4$ 
718 032272 021 000020 CMP (SP),RMLA(R4)  ;CORRECT LA NUMBER ? 
719 032276 001402 BEO 
032300 005726 TST —(SP)4 ZNO,CLEAR STACK 
1 032302 15 BR 3$ 
722 032304 162603 7$: SUB (SP)+,R3 ;CALCULATE THE DELTA 
032306 002002 BGE 18 
724 032310 062703 004000 ADD #<32.%64.>,R3  ;MAKE THE DELTA POSITIVE 
725 032314 023703 027506 1$: CMP MXDLTA,R R3 ;CHECK THE DELTA TO SEE 
0323 002406 BLT 3$ :IF IT IS WITHIN THE 
727 032322 023703 027510 CMP = MNDLTA,R3 SWINDOW-=-IF YES, ZERO 
032 002003 BGE $ ; THE LOOK AHEAD T 
729 032330 105061 027426 2$: CLRB LACNT(R1) zAND TAKE THE I/0 EXIT 
032334 005720 TST (RO) + 
731 032336 005720 3$: TST (RO) + sADJUST THE RETURN ADDRESS 
032340 000402 BR 5$ ZEXIT 
733 032342 004737 031636 4$: JSR PC,CI7 > PROCESS THE ERROR 
032346 000200 S$: RTS RO S RETURN 
: INTERRUPT SERVICE ROUTINE 
032350 112737 000001 027414 ISR: VB #1 ,ACTDRV +t “ACTIVE DRIVER'*® FLAG 
739 032356 104412 SAVREG RO -R 
740 032360 013704 027476 MOV RMADR ,R4 “ADDRESS OF RHSCS1 
741 032 013701 027462 MOV DTUW,R1 :GET ‘DATA TRANSFER ay cite 
742 032370 002403 BLT 1$ :BR IF NO DATA TRANSFER UNDERWA 
743 032372 006737 032414 JSR PC,1D ;CALL TRANSFER DONE 
744 032376 000402 BR $ SEXIT 
745 032400 004737 032564 1$: JSR PC,SC ; CALL SPECIAL CONDITIONS 
746 0324 104413 2$: RESREG :RESTORE R 
747 032406 105037 027414 CLRB ACTDRV ; CLEAR “ACTIVE DRIVER"’ FLAG 
748 032612 RTI ; RETURN 
cae ; TRANSFER DONE ROUTINE 
752 032414 5061 027340 CLRB DRVACT(R1) ;SET DRIVE ACTIVE INDICATOR TO IDLE 
oRse5 peta 177777 027462 neg "tee :NO DATA TRANSFERS UNDERWAY 
755 032430 012761 177777 027442 MOV #-1,TIMER(R1)  ;CANCEL TIMEOUT 
756 032436 1 ASR 
757 032440 013702 027410 MOV —sTTRNSWT JR2 :GET "DPB'' ADDRESS FROM THE 
58 032 5037 027410 CLR TRNSWT ; TRANSFER WAIT QUEUE--CLEAR QUEUE 
759 032450 052762 000200 000016 BIS #BITO7.16(R2) SET DONE 
760 0324 10164 000010 MOV R1,RMCS2(R4) ;SELECT THE DRIVE 
761 032462 037 034346 JSR RO.RD. RM ; TRANSFER ERROR(TRE=1)? 
762 032466 RMCS1 
763 032470 031636 C17 
764 032472 006126 ROL (SP)+ 
765 032474 100417 BM! 3$ :BR IF YES 
766 032476 005737 027436 TST SAVEFG ;SAVE THE RH/RM REGISTERS? 





Se ee eee — 


SEQ 0119 


ey 


CZRMTAO RMOS5S/3/2 DR CMPT TST 
RH/RM DRIVER INITIALIZATION CODE 


767 032502 
768 


830 0 
831 032652 
832 032656 
8335 032660 
834 664 
835 032670 
836 72 


842 032716 


100002 
004737 


012714 
000414 
052762 
004737 


004737 
012714 
012714 
000400 


034720 
035554 


030556 


000113 


000016 
034346 


035644 
035036 


000001 


027370 


033576 
027400 


033576 
027350 


027416 


035554 
034720 
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BPL 1$ 
* JSR PC, SVRH70 
JSR PC,GETREQ 
TST R2 
BEQ 2$ 


JSR PC,OPT 


2$: 

BR 

000016 3$: BIS 
JSR PC, EVRHYO 


SC CHECK 
gp lth ae 16(23) ;SET DA 
PC, EMPTY 


;BR_IF NO 
;YES--SAVE THE REGISTERS 


;GET DPB POINTER 
sENTRY FOR DRIVE ? 
: F NOT 


‘CALL OPTIMIZER 
ECK OTHER DRIVES 


BR ; CH 
>THE RELEASE DRIVE COMMAND IS FORECD TO ENTER FOR DUAL PORT OPERATION 
MOV #113, (R4) sRELEASE T VE 


LAG 
sEMPTY THE ‘DRIVE'S WAIT’’ QUEUE 
sSAVE THE RH/RM REGISTERS 


MOV #40111, (R4) ; ISSUE A ‘DRIVE CLEAR*’ 


MOV #113, (R4) 
BR sc 


; ISSUE A RELEASE TO THE DRIVE 
sCHECK FOR OTHER DRIVES 


>SPECIAL CONDITION ROUTINE 


SC: MOVB = RMAS(R4),R3 :READ 'RMAS'' 
BNE 2$ “BR IF ANY ‘ATA' BITS SET 
ISR RO.RD.RM =READ CONTROL AND STATUS REGISTER 
C18 
: 1$ EXIT IF FAIL TO READ 
ROLB = (SP) + 71S ‘"IE’'=1? 
BMI -YES, NO DRIVES TO CHECK 
JSR RO.ES. SAV ; SAVE THE ADDRESS IN ‘SESCAPE' 
EMT 1 -REPORT AN ILLEGAL INTERRUPT 
JSR PC,SET.IE *SET INTERRUPT ENABLE 
1$ RTS PC * RETURN 
2$ CLR -(SP “PROCESS ALL DRIVES THAT HAVE 
MOVB _——R3, (SP) “AN 'ATA'=1 
MOV #1 R3 
CLR R1 
SC3: BIT R3, (SP) :ATA=1? 
sc§ YES 
SC4 INC R1 *MOVE TO THE NEXT DRIVE 
ASLB RB 
BNE $C3 :BR IF MORE TO CHECK? 
TST (SP) + “CLEAN OFF THE STACK 
RTS PC “RETURN TO USER 
SCS TSTB —s DPIINT(R1) : INITIALIZING THE DRIVE ? 
BEQ 1$ “BR IF NOT 
JMP $C13 “PROCESS THE DRIVE 
1$: TSTB - DPRQS(R1) ;PORT REQUEST OUTSTANDING ? 
' BEQ 2$ “BR IF NOT 
JMP §(13 “START THE OUTSTANDING COMMAND 
2$: TSTB — DRVSTA(R1) =CHECK THE DRIVE STATUS 
BGT *BR IF ONLINE 
TSTB ~—sULDFLG(R1) : UNLOAD IN PROGRESS? 
BLE 5$ F NOT 
JSR PC, GETREQ “GET DPB 


JSR PC,SVRH70 


POINTER 
:SAVE THE RH/RM REGISTERS 


SEQ 0120 


e 


_CZRMTAO RMOS/3/2 DR CMPT TST 


RH/RM DRIVER INITIALIZATION CODE 


843 032722 
844 


860 033000 
861 035006 
862 


894 52 
895 033156 
896 033160 


004737 
105761 
003414 
032737 
001000 
013705 
000504 
105761 
001033 
004737 


105761 


033526 
027350 
040000 


027332 
027340 
033526 
027370 
027350 
020000 


000111 
034526 


035644 
035644 


177777 
035554 
000010 


033416 
034346 


027340 
100210 
034346 


034720 
000111 
034526 


EE 
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027330 


027334 


027442 


000016 


$$: 
S$: 


7$: 


8$: 


SC6: 


1$: 





PC,SC12 ;SAVE RMDS, RMER1, RMER2, AND 
“ALSO DO A DRIVE INIT (DRVINT) 
DRVSTA(R1) :D1D DRIVE COME ONLINE? 
#BIT14,RMERRS :WAS THERE AN ERROR? 
3$ ;BR IF ERROR 
$C11 RROR 
RMERRS+2,R5 :YES == PICKUP RMER1 AND 
:GO PROCESS THE ERROR 
DRVACT(R1) :DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ? 
SC “BR IF EITHER 
PC,SC12 :SAVE RMDS, RMER1, RMER2, 
:ALSO DO A: DRVINT 
DPINT(R1) : TRYING TO INIT THE DRIVE ? 
SC “BR IF YES, CHECK ON MORE DRIVES 
DRVSTA(R1) :CHECK ON DRIVE'S STATUS 
7$ *BR IF UNSAFE 
#B1T13,RMERRS+4 :ADDRESS PLUG CHANGED ? 
8$ ‘BR IF YES 
#113,-(SP) :RELEASE COMMAND 
#111,-(SP) :DRIVE CLEAR 
RO,WRT.RM “WRITE THE COMMAND INTO RMCS1 
:REGISTER INDEX 
:PARITY EXIT ADDRESS 
(SP) RS “PICKUP (RMAS) BEFORE 
RO.ES. SAV :SAVE THE ADDRESS IN '$ESC 
2 =REPORT THE UNEXPECTED ATTENTION 
SC4 :GO CHECK FOR MORE ATA'S 
RO.ES. SAV : SAVE THE ADDRESS IN 'SESCAPE" 
5 :REPORT THE ADDRESS PLUG CHANGE 
SC4 :CHECK FOR MORE DRIVES 
R1 :SETUP TO ADDRESS WORDS 
#~1,TIMER(R1) STOP THE TIMER 
R1 sRESTORE THE DRIVE ADDRESS 
PC,GETREQ :GET THE DPB POINTER FROM THE QUEUE 
R1,RMCS2(R4) “SELECT DRIVE 
Sci :PROCESS THE SEARCH 
RO.RD.RM :READ THE RM'S STATUS REG. 
(SP) RS :AND PUT IT IN RS 
(SP) + :WAS THERE AN ERROR? 
1$ :BR IF ERROR 
DRVACT(R1) :CHECK DRIVE'S STATE 
“BR IF DRIVE ACTIVE WITH ORDER 
#81115 !B1T07!B1103, 16(R2) 
RO,RD.RM :READ ERROR REGISTER #1 
(SP) +,R5 :AND SAVE IT IN RS 
PC, SVRH70 =SAVE RH/RM REGISTERS 
wilt = (SP) : ISSUE A DRIVE CLEAR 


ES OE Ee 


THE pA CALL 


SEQ 0121 


; INFORM USER OF ERROR RECOVER COMPLETION 


ee - 


CZRMTAQ RMO5/3/2 DR CMPT TST 
RH/RM DRIVER INITIALIZATION CODE 





897 033162 006105 SC6A: ROL 
898 033164 100406 BM! 
0331 005702 TST 
900 033170 001447 BEQ 
901 033172 052762 100240 000916 BIS 
902 033200 000443 BR 
903 033202 004037 034346 1$: JSR 
33206 000012 RMDS 
905 033210 033 sc8 
906 033212 011605 MOV 
907 033214 ROL 
908 033216 100011 BPL 
909 033229 112761 177777 027350 MOVB 
910 033226 00472 034720 JSR 
911 033232 05276 110000 000016 BIS 
912 033240 000425 BR 
913 033242 032705 010000 2s: BIT 
914 033246 001015 BNE 
915 033250 112761 177777 027340 MOVB 
916 033256 112761 000001 027350 MOVB 
917 033264 006301 ASL 
918 033266 012761 072460 027442 MOV 
919 033274 006201 ASR 
920 033276 000137 032640 JMP 
921 033302 052762 100220 000016 3$: BIS 
os6 033310 105061 027340 SC7: CLAS 
924 033314 004737 035576 JSR 
925 033320 105761 027416 TSTB 
926 033324 003002 BGT 
927 033326 105061 027416 CLRB 
928 033332 116164 027464 000016 1$: MOVB 
929 033340 105761 027350 TSTB 
3344 100406 aed 
932 033346 012746 000111 MOV 
933 033352 004037 034526 JSR 
934 033356 000000 RMCS1 
935 033360 033366 Ssc8 
936 033362 000137 032640 23: JMP 
937 033366 105761 027340 Sc8: TSTB 
938 033372 001405 BEQ 
939 033374 004737 035554 JSR 
940 033400 004737 031636 JSR 
941 033404 000402 BR 
942 033406 1$ an 
33406 004737 031660 JSR 
945 033412 000137 032640 2$: JMP 
946 033416 105761 027416 SC11: TSTB 
947 033422 003402 BLE 
948 033424 105061 027416 CLRB 
949 033430 105061 027340 1$: CLRB 
3 033434 136157 027464 027412 BITB 
952 033442 001012 BNE 
953 033444 004737 035576 JSR 


ce en a a me se et 
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—— ee ee see 


RO,RD.RM 


(SP) ,R5 
(SP) + 


SC7 “BR IF 
#81115 !81107 181105, 16(R2) 


ae CONDITION =1? 

ANYTHING IN QUEUE ? 

; INFORM USER OF ERROR 
sREAD DRIVE STATUS REG. #1 

+ SAVE a IN R5 


; ERR’ = 
BR IF NO--UNSAFE CLEARED 


2$ 
#-1 ,DRVSTA(R1) ar IS _UNSAF 


PC, SVRH70 


wBiT15!B1T12, .16(R2) 


S 
#B1T12,R5 
3$ 


AVE RH/RM REGISTERS 
: INFORM USER OF UNSAFE ERROR 


;‘MOL’’ = 1 ? 


;BR IF YES 
#~1,DRVACT(R1) ;ACTIVE ERROR RECOVER 
ne ; ONL INE 


sponses ws 


SC4 
AEE. abies 16(R2) 
(R1) DRIVE 


START 30 SECOND TIMER 


; INFORM USER OF ERROR 


DRVACT IS IDLE 
PC ,EMPTYQ ;DUMP THE QUEUE 
PC POPQ UE = REMOVE THE QUEUE 
ULDFLG(R1) ;UNLOAD IN RMOGRESS OR QUEUE? 
1$ “BR IF NOT 
ULDFLG(R1) ;CLEAR UNLOAD FLAG 
ATABIT (R1) ,.RMAS(R4) ; CLEAR oh ad BIT 
DRVSTA(R1) 31S THE DRIVE UNSAFE ? 
2$ “BR IF IT IS 
#113,-(SP) ;RELEASE COMMAND 
#111,-(SP) :DRIVE CLEAR COMMAND 
RO, WRT .RM “WRITE THE COMMAND INTO RPCS1 
sREGISTER INDEX 
;PARITY EXIT ADDRESS 
SC4 ;CHECK FOR MORE DRIVES 
tepals ft DRIVE IDLE? 
PC,GETREQ ‘GET DPB POINTER 
PC,CI7 =PROCESS THE PARITY ERROR 
: INUE 
PC,CI7 ;PROCESS THE PARITY ERROR 
PC,CI7B sPROCESS THE UNCORRECTABLE PARITY ERROR 
SC4 sCHECK MORE DRIVES 
ULDFLG(R1) :' UNLOAD IN PROGRESS'”? 
1$ :BR IF NO 
ULDFLG(R1) ;CLEAR UNLOAD FLAG 
DRVACT(R1) ;SET DRIVE IDLE 
ATABIT(R1),SRCHWT ;DOING A SEARCH OPERATION FOR 
: 4/0 COMMAND? 
2$ 3BR IF 
PC ,POPQUE ZREMOVE REQUEST FROM QUEUE 


SEQ 0122 


ee eee eee | ee eee eC 
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“CZRMTAO RMOS/3/2 DR CMPT TST 


|RH/RM DRIVER INITIALIZATION CODE SEQ 0123 


| 954 033450 052762 000200 000016 BIS #BITO7,16(R2) SET DONE’ BIT 
| 955 033456 00573? 027436 TST —« SAVEFG “SAVE THE REGISTERS? 
| 956 033462 100002 BPLtité«‘2S :BR_IF_NO 
957 03 004737 034720 JSR —«~PC. SVRH70 YES==SAVE ALL OF THE RH/RM REG'S 
| 958 033470 116164 027664 000916 2$:  MOVB  ATABIT(R1).RMAS(R4) CLEAR ATTENTION BIT 
959 033476 146137 027464 027412 BICB —ATABIT(R1) .SRCHWT “CLEAR IMPLIED SEEK SET 
033504 00630 ASL sR :WORD INDEX 
961 033506 012761 177777 027642 MOV #1, TIMER(RI) 3 STOP CLOCK 
962 033514 00620 ASR RT TORE R1 
| 963 033516 004737 030556 JSR «PC, OPT START A REQUEST 
033522 000137 032640 MP OSC “CHECK FOR MORE DRIVES 
965 033526 010164 000010 SC12: MOV —-R1LRMCS2(R4) «= SELECT DRIVE 
033532 016437 000012 027330 MOV —swRMDS(RG),RMERRS =SAVE THE FOUR REGISTERS THAT 
967 033540 016437 000014 027332 MOV _—swRMER1 (R45 .RMERRS +> SWILL TELL US SOMETHING 
033546 016437 000042 027334 MOV —sRMER2(R4) “RMERRS+4 
969 033554 016437 000060 027336 MOV —s-RMMRO(RG) §RMERRS+6 
970 033562 004037 027726 JS” RO. DRVINT INIT. THE STATE OF THE DRIVE 
971 033566 000401 BR 1$ “TAKE ERROR EXIT 
972 033570 00020 RTS —s- PC “RETURN 
973 033572 005726 1$: TS? —s- (SP) + “DOP PC OFF OF THE STACK 
974 033574 000674 BR $c8 “PROCESS THE PARITY ERROR 
975 033576 006301 SC13: ASL RI “SETUP TO ADDRESS WORDS 
976 033600 012761 177777 027442 MOV #1, TIMER(R1) STOP THE TIMER 
977 033606 ASR RT 
978 033610 010164 000010 MOV -—soRTLRMCS2(R4) “SELECT THE DRIVE 
979 033614 116164 027464 000016 MOVB —ATABIT(R1) ,RMAS(R4) CLEAR THE ATTENTION 817 
980 033622 105761 027370 1S: TSTB. —sODPINT(R1) : INIT JALIZING THE DRIVE ? 
981 033626 001424 BEQ s«OD$ F NOT 
982 033630 105061 027370 CLRB —CDPINT(R1) “CLEAR THE INIT INDICATOR 
983 033634 004037 027726 JSR. —RO. DRVINT “G0 INIT THE DRIVE 
033640 000240 NOP :DUMMY PARITY ERROR RETURN 
985 033642 105761 027350 TSTB —dDRVSTA(R1) “DRIVE ONLINE ? 
03 3014 BGT 28 “BR IF YES -- START ORDER 
987 033650 005702 TST ~—s_ RD. “QUEUE ENTRY FOR THE DRIVE 
033652 001426 BEO $ :BR IF NOT 
989 033654 004737 035554 JSR —s-PC.GETR T DPB ADDRESS 
03 052762 140000 000016 BIS. BI TIS BITI4. 16(RoD NFORM USER THAT DRIVE OFFLINE 
991 033666 004737 034720 JSR «PC. SVRH70 : SAVE THE REGISTERS 
SSRs PCLEMPTYQ SPMPTY THE REQUEST QUEUE 
993 033672 004737 035576 ‘SR -—- PC“ POPQUE “REMOVE THE QUEUE 
994 033676 00041 BR 
995 033700 032764 004000 000000 2$: BIT  #BIT11.RMCS1(R4) :DVA SET ? 
996 033706 001006 BNE 4$ SET THEN CALL OPT 
997 033710 006301 ASL RT 
998 033712 012761 060000 027442 MOV «#60000, TIMER(R1) 
999 033720 006201 ASR oR 
1000 033722 000402 BR 35 
1001 033724 00473? 030556 4$: JSR ——sPC.OPT START THE PENDING REQUEST 
1002 033730 000137 032640 3$: MP sca “PROCESS OTHER DRIVES 
1004 RM TIMER ROUTINE 
1005 > CALL 
1006 : MOV —s MT IME..-(SP) sELASPED TIME IN MILLISECONDS ON THE STACK 
193 JSR PC CRMTMR “CALL RMOS TIME ROUTINE 
1009 033734 005737 027414 RMTMR: TST  ACTDRV CHECK "'ACTDRV & ACTSTR" 
1010 033740 001027 BNE 4§ “IF NON ZERO EXIT 





NS ee ee 


=— = 1 


- 


CZRMTAO RMOS/3/2_ DR CMPT TST 





10117 Seeeee 
033750 


© 
AWG 
AWW 
> > 


é 
033754 


ee ce ed ed ed ee ed ae ed ed eed 
NV SOONAU RW 
oo 
EEA 
S 
NM 


ejleoleleleleleleleleleole. 


MmMr 


004 
3 034010 


1Ofn75 
412 


010146 


RH/RM DRIVER INITIALIZATION CODE 


000001 


027442 
000002 
034024 


000010 


027415 


027476 
000010 
034346 


027370 
027400 


027410 
027462 





i ee ee - + - 
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027415 


027442 


000016 


027410 
177777 027462 


3$: 
4$: 


CALL: STO 


BM 
STO1: TSTB 
BN 


1$: TST 


2$: INC 


RTS 


STO: MOV 


1$: BIS 





#1,ACTSTR 

R1 

R3 

TIMER(R3) 
se 4 
PC,STO 

R1 

(R3)+ 

#8. Rl 

1$ 


ACTSTR 
(SP)+, (SP) 
PC 


: SOFTWARE TIMEOUT ROUTINE 
“NOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 
OR GREATER 


‘eave “ACTSTR'’ 
RO = R5 
‘START WITH DRIVE 0 


:IS a RUNNING? 


:BR 

;COUNT THE INTERVAL 

;BR IF NO SOFTWARE TIMEOUT 
sCALL SOFTWARE TIMEOUT ROUTINE 
:MOVE TO NEXT DRIVE 


:OUT OF DRIVES? 
;BR IF NO 


“RESTORE RO - RS 
= ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 
ADJUST THE STACK 


#DRVNUM,R1 :DRIVE NUMBER 

PC,STO ; CALL 

R1,-(SP) :SAVE R1 

R2,-(SP) “SAVE R2 

R3,-(SP) “SAVE R3 

R4.-(SP) “SAVE R4 

RMADR.R4 :GET ADDRESS OF 'RMCS1"' 

R1,RMCS2(R4) : SELECT THE DRIVE 

0,RD.RM -READ 'DRIVE STATUS REG’' 

(SP) + :IS ‘DRY''= 

STO2 “BR IF YES. 

DPINT(R1) : TRYING i? INTIALIZE THE DRIVE ? 

DPRQS(R1) ; OUTSTANDING PORT REQUEST FOR THE DRIVE ? 

STO2 =BR IF YES 

TRNSWT .R2 ‘BI CKUP TRANSFER WAIT QUEUE 

RI . TUM ne eso” ON THIS DRIVE? 
IF NOT DON'T BOTHER DRIVES 

PC,GETR T DPB ADDRESS 

WeiT15°BIT09, 16(R55 :SET THE ERROR FLAGS 

PC, SVRH70 ; SAVE_RH/RM REGISTERS 

#CLR,RMCS2(R4) :""INIT'’ THE MASS BUS 

DRVACT(R1) [DRIVE IS IDLE 

ULDFLG(R1) =CLEAR THE UNLOAD FLAG 

TRNSWT :CLEAR DPB ADDRESS 

#-1.DTUW ; CLEAR THE TRANSFER DRIVE # 

STO9 “DON'T BOTHER OTHER DRIVES 


ooo —<-—— oe ee ow ee 


SEQ 0124 


io 





1068 034154 
069 160 


1 0 
1090 034264 


PERE RER ERE 
WWW mn 
SERRE AN 


oo°o°o 
RESEEE 
ESSER 


MNONININIA) @ ts © 
RW SOONAM RW BmODR UE 


013737 


CZRMTAO RMO5/3/2 DR CMPT TST 
RH/RM DRIVER INITIALIZATION CODE 


000016 
027464 
027370 
027400 


027370 
027400 
177777 
031736 
027370 


035554 
140000 
177777 
027400 
035554 


100004 
035460 
034720 


027474 


027476 
034372 


034374 
027476 
000010 


027442 


027442 


000016 
027442 


000016 


034514 
034372 


000002 


ee mee ae ee —_-~-— 
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STO02: 


STO3: 


1$: 


STOS: 
STO6: 


STO?: 


STO8: 
STO9: 


sROUTINE TO 


CALL 





MOVB 
BITB 


BNE 
TSTB 
BN 


RMAS (R4) RS 
ATABIT(R1) RS 


STO 

oh heats 
DPRQS(R1) 
STO? 

STO9 
—_—— 
DPRQS(R1) 
STO 
#-1,TIMER(R3) 
STO9 
PC,CI8 
STO9 
DPINT(R1) 
DRVSTA(R1) 


#~-1,TIMER(R3) 
RS” GETREQ 


STO9 BR IF 
aa ae 16(R2) 


STO 

DPRQS (R1) 
PC,GETREQ 
R2 


STO9 
#81115 :B1T2, 16(RDS 


PC,EMPTYQ 
PC,SVRH70 
(SP) +,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
PC 


RO,RD.RM 


MCPEMX ,RD.RM2 
(SP) ,~(SP) 
RMADR ,RD.ADR 
(RO)+,RD.ADR 
poreen ee 


0 

RD.WRD, 2 (SP) 
RMADR, - (SP) 
#RMCS2, (SP) 


sREAD ATTENTION REG 
i ATTENTION FOR THIS DRIVE UP ? 


: TRYING TO INTIALIZE i DRIVE ? 
:BR_IF YES = DRIVE NOT ONLINE 
s OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
;BR IF YES = NO RESPONSE TO REQUEST 
sOTHER WISE EXIT 
s INITIALIZING THE DRIVE ? 
:BR - INIT PENDING 

Bigs. a PENDING ? 


:STOP THE TIMER 
:GO HANDLE THE PARITY ERROR 


:CLEAR THE INITIALIZE INDICATOR 
sSET UNIT OFFLINE 

:STOP THE TIMER 

>GET THE DPB Tie» 

:REQUEST IN QUEUE ? 


NOT 
; INFORM THE USER DRIVE NOT AVAILABLE 


>STOP THE TIMER 

sCLEAR PORT REQUEST INDICATOR 
:GET DPB ADDRESS 

: QUEUE ENTRY FOR DRIVE ? 


; INFORM USER OF PORT REQUEST ERROR 
sCLEAR_THE QUEUE FOR THE DRIVE 
oat THE DM eaiaiierts S 


:RESTORE R1 
RETURN 


READ A RH/RM REGISTER 


:GO READ A REGISTER 
;REG. INDEX FROM BASE 

;ERROR ADDRESS--PROCESS ERROR STARTING 
:AT THIS ADDRESS 

CONTENTS OF REG. IS ON THE STACK 


:MAX. RETRYS ALLOWED 
Sp RO FOR RETURN 
FORM THE DESIRED ADDRESS 
“USING THE BASE AND THE INDEX 
sREAD THE gph: REGISTER OF THE RM DRIVE 
;ADDRESS IS FORMED HERE 


SEQ 0125 








prong RMOS/3/2 DR CMPT TST 


RM DRIVER INITIALIZATION CODE 


Oooo 00o 
EEE 
Bins 


OSOoooooeoocec[eo 
BREE 
wrens 
SRR 


KEEKEKERE 


ESERE 


es 


ee ee em el ee ee ee ee ee ee eed eed dd 
— —d 
Oe 


BSISAFANISSEVETRARVIS SSVRALANLSSSUETRAALESSIKGKRY 


OoOooeo°ooO 


x 
MN 
i 


013737 
016637 


010000 
173050 
020000 


035644 
027462 
040000 


040000 


027476 
034510 


027474 
000002 


034616 
000150 
034346 


177770 
034615 
027476 


027476 
000010 


me ae eee ee 
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034510 


034704 
034614 


034614 


034616 


1$: 


2$: 


3$: 


RD.RM2: . 
RD.RM3: 
RD.RM4: 


RTS 


#B1T12,a(SP)+ 
RD. RMS 


@RMADR , = (SP) 
#81713, (SP) 


1$ 
(SP)+, (RO) + 
RD.RM4 


ieee 
DTUW 

2$ 

#B1T14, (SP) 
2$ 

(SP) + 
RD.RM3 
#B1T14, (SP) 
(SP) 
_" 
(SP)+,a(PC)+ 
(PC)+ 

3 

RD.RM1 

(RO) ,RO 
(SP)+, (SP) 
RO 


sROUTINE TO WRITE A REGISTER 


> CALL 


WRT .RM: 


DATA, ~(SP) 
RO,WRT.RM 


2 (SP) 

(SP) +, (SP) 
a eWRT .AD 
#150, WRT .WD 
1$ 


RO,RD.RM 


(SP) 
#°C7, (SP) 


(SP)+,WRT.WD+1 
R,WRT.AD 


eWRT.A 
Pichia 


0 
RMADR. - (SP) 
#RMCS2, (SP) 


eX 


Strebing WRT .R2 
- WD 


sCHECK THE ‘NED* BIT 


+BR IF DRIVE NON-EXISTENT 
;READ RMCS1 

;DID us 

“ADJUST FOR RETURN 


sSAVE THE CPE’ ERR ao "SESCAPE ' 


;REPORT ‘MCPE"' 
sDATA TRANSFER UNDERWAY? 


=NO 

TRE’ = 1 ? 
;NO 

ivaxe tet Fe OFF THE STACK ~~ 


E WRITI 
FORM ADDRESS OF HIGH BYTE 


;BR IF NO 
7FATAL ERROR EXIT 


’ ee TO *"TRE'’ 


sWRITE THE HIGH BYTE OF RMCS1 
sADDRESS STORAGE 
sEXCEEDED MAX. RETRYS 


sDATA TO BE LOADED ON THE STACK 
sCALL THE ROUTINE TO LOAD(WRITE) THE REG. 
s INDEX OF THE REGISTER TO BE LOADED 
sADDRESS TO RETURN TO ON AN ERROR 

sERROR FREE RETURN 


sMAX RETRYS ALLOWED 


THE 
;GET INDEX OF REGISTER TO BE WRITTEN 
- NOT RMCS1 
“1S T HE COMMAND FOR DATA TRANSFERS? 


: VES-~DON” T GET THE OLD Al6 & arte & PSEL 
COMBINE A 


A168A17, & PSEL 


;THE COMMAND BEFOR 
: THE RH/RM 


ORE SENDING IT tO” 


:FORM THE ADDRESS Pia DISK REG. 


; LOAD ny DESIRED R 
;WORD_T WR 


;FORM THE ADDRESS OF RMCS2 


HERE 
“PUT THE ADDRESS ON THE STACK 


SEQ 0126 


————_ 
| CZRMTAO RMOS/3/2 DR CMPT TST 








23 
es 
ne 


Sohne 


rr 
: 


ee ed ed eed eed ce ce ce cl cel eed ce eld eed 
$3 


— at =) ww) — ce ed ee eed etd od ws wd wd 
SELKFRAN LSSELRALSS 


~leolelelelelele) 
FELELE 


Moy 
BRBE 
Wh 


SENeaR 
3 


NNN Negi pi gi git pe ih gh gh ok pk 
WW BOOS NAUNP WMO 
Ooooco0d0o0o00 00 
Be EFEESERE 
SSNNISS TIES 


MINN PongNo Nong Nhongfongny 
VRVSKRROPV 
ooo°0odo © 
RRR 
PRs se Sec SNS 


1 
. 
1 
j 
1 
1 
1 
: 
; 
; 
, 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


2 
1232 


30 035032 
1231 035034 


RH/RM DRIVER INITIALIZATION CODE 


010000 
034346 


000010 
177776 
034346 


035644 


027476 
000010 
000014 


035000 
035000 


000200 
034346 
035000 


000002 
031636 


wee ee ee ne a ee 
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034666 


000022 
000010 


000046 
035000 


1$: 


at LG: @(SP)+ te THE NED‘ BIT 
T.R3 :BR 


F DRIVE NON-EXISTENT 


RO. RD. RM ; CHECK FOR PARITY ERROR ON WRITE 
oye (SP) + 

;BR IF *PAR=0'' 
WS TROD . 1$ OT CHU Te INDEX 
RO,RD. RM “READ THE REG. 
0 $ INDEX 

* RETURN TO THIS ADDRESS ON ERROR 
RO,ES.SAV + SAVE THE ADDRESS IN ‘SESCAPE' 
4 ;REPORT THE PARITY ON WRITE ERROR 
(SP) + = CLEAR OFF THE STACK 
(PC)+ = DECREMENT THE ERROR COUNT 
3 ;RETRY COUNTER 
WRT .R1 : TRY AGAIN IF NOT FINISHED 
(RO) -RO : TAKE THE “PARITY ON WRITE’ ERROR EXIT 
at = ADJUST FOR ERROR FREE EXIT 


sROUTINE TO SAVE THE RH/RM REGISTERS AS PER DPB+14 


CALL 


SVRH70: 


S$: 
6$: 


JSR 
SAVREG 


#DPBNUM , R2 :DPB POINTER TO R2 
PC, SVRH70 :SAVE THE DRIVES REG'S 
;SAVE RO = RS 
R2 :QUEUE ENTRY FOR THE DRIVE ? 
6$ *BR IF NONE 
RMADR RG 
(R2) ,RMCS2(R4) SELECT DRIVE 
14(R2) ,.R3 :GET THE ERROR TABLE POINTER 
sEXIT IF NO ADDRESS 
3$ ‘COUNTER & POINTER 
38 ARMDB :REACHED THE BUFFER REGISTER ? 
#B1T07,RMCS2(R4) j rR" SET ? 
(R3)+ :STORE RMDB AS ZEROES 
4$ ; CONT INUE 
RO.RD.RM -READ THE SELECTED REGISTER 
0 sREGISTER INDEX 
“ERROR RETURN ADDRESS 
(SP)+, (R3)+ :STORE THE REGISTER CONTENTS 
3$ ,ARMEC2 : REACHED THE END ? 
#2,3$ : INCREMENT THE REGISTER INDEX 
1$ :CONTINUE READING THE REGISTERS 
PC,CI7 :PROCESS THE UNCORRE C TABLE PARITY ERROR 
:RESTORE RO - R5 
PC * RETURN 


THE INTERRUPT WITHOUT GETTING A *'TRE'’ 
#DRVNUM ,R1 sDRIVE NUMBER °° 





035064 
47 035072 
248 035074 


Nm 
‘~ 
oO 
>) 
WW 
Vivi 
S 
oO 


1275 


ER 


SA Ss 
 -) ) 
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Ss 
™m 
8S 
ge 


CZRMTAO RMOS/3/2 DR CMPT TST 
RH/RM DRIVER INITIALIZATION CODE 


0446 


10 
040000 


000100 
010000 


027476 
0000 


000001 
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000010 


: JSR PC,SET.IE :SET "IE" 
: RETURN 
SET.IE: MOV R4,-(SP) 
MOV RMADR ,R4 
MOV R1,RMCS2(R4) ;SELECT DRIVE 
MOV (R4),=(SP) 
BIS WBIT14, (SP) 
SWAB —Ss« SP?) ADJUST FOR D 
MOVB #BI1T06, (R4) “SET ‘IE’ 
BIT #81T12,RMCS2(R4) :I 
BNE 1$ -vES=<CLEAR ° 
st (SP) + *CLEAN OFF THE STACK 
1$ MOVB  (SP)+,1(R4) : CLEAR ‘‘TRE'' 
2$ MOV (SP) +,R4 :REST ORE R4 
RTS “RETURN TO CALLER 
QUEUE COUNT 
-BYTE 0 :DRIVE 0 
-BYTE 0 “DRIVE 1 
-BYTE 0 “DRIVE 2 
-BYTE 0 “DRIVE 3 
-BYTE 0 “DRIVE 4 
-BYTE 0 “DRIVE 5 
-BYTE 0 “DRIVE 6 
-BYTE 0 “DRIVE 7 
QUEUE INPUT POINTERS 
QINPT: .WORD  aQDRVO DRIVE 0 
-WORD QDRV1 “DRIVE 1 
“WORD  QDRV2 “DRIVE 2 
“WORD  QDRV3 “DRIVE 3 
-WORD  QDRV4 “DRIVE 4 
“WORD QDRV5 =DRIVE 5 
“WORD  QDRV6 “DRIVE 6 
“WORD  QDRV7 “DRIVE 7 
:QUEUE OUTPUT POINTERS 
QOUTPT: .WORD  apRVO :DRIVE 0 
-WORD QDRV1 “DRIVE 1 
.WORD  QDRV2 “DRIVE 2 
-WORD  QDRV3 “DRIVE 3 
-WORD  QDRV4 “DRIVE 4 
“WORD  QDRV5 “DRIVE 5 
“WORD  QDRV6 “DRIVE 6 
-WORD  QDRV7 :DRIVE 7 
QSTART: .WORD  aQDRVO : DRIVE 0 START ADDRESS 
QSTOP: .WORD QDRV1 
-WORD  QDRV2 ® STOP DRIVE 1=--START 
-WORD QDRV3 *STOP DRIVE 
-WORD  QDRV4 :STOP DRIVE 
.WORD QDRVS 
-WORD QDRV6 


SAVE R4 
:PICKUP ADDRESS OF RMCS1 


;READ RMCS1 
:SET THE on tn a cs OF THE WORD READ 


DRIVE 0 STOP ADDRESS RAY 1 START ADDRESS 


--START DRIVE 
; ~-START DRIVE 
:STOP DRIVE 4--START DRIVE 
:STOP DRIVE 5--START DRIVE 


Aun WN 


SEQ 0128 








| j af eee 
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RH/RM DRIVER INITIALIZATION CODE nighrenrg ceed Rte 


1293 035176 
035200 


™ 


— — ss 
Se 
Vie 


SSSRGR ENS SE Te 


035402 
035404 
peeets 


Sess 
rs 
Nm 
y~ 


gsiige 
WORN 


aa 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
} 
: 
7 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
1 
1 
1 
1 
; 
1 


13350 035456 
1331 
1332 
1333 


1 
1335 


36 
7 
38 
1 
134 
134 
134 
134 
1344 
134 
134 
134 
134 
134 


Ww 

Bo 

© 
Scone 
VI 

™! 

VI 

& 


WG 
W 
‘Oo 
Cin 
3 


035474 
035476 


WN —© 
-) 


WOONOW 


035362 
035402 


035402 


035110 


000010 
035160 


000010 
035160 


035110 


035120 035140 





. WORD 
. WORD 


QDRV7 
QTERM 


:DRIVE REQUEST QUEUES 


ed ed ceed eed ed ceed eed ed 
ee | ae) | | we] oo] oe) 


sSTOP DRIVE 6==START DRIVE 7 
STOP DRIVE 7 


sROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 


> CALL 


CLRQUE: 


2$: 


sEMPTY THE QUEUE SPECIFIED BY R1 


> CALL 


EMPTYQ: 


JSR 
SAVREG 
MOV 


RESREG 
RTS 


PC,CLRQUE 


#QCNT,R2 
(R2)+ 

(R2)+ 

(R2)+ 

(R2)+ 
#8.,R3 
#QSTART.R1 
(R1)+,(R2)+ 
R3 


#8. ,R3 
#QSTART,R1 
(R1)+, (R2)+ 
R3 


2$ 
PC 


:SAVE RO = RS 
;ZERO THE QUEUE COUNTS 
he 0 . 


. 
tony 
m 
w~ 
Nm 


THE QUEUE INPUT POINTER 


sMOVE THE STARTING ADDRESS 
OF THE QUEUE INTO THE 
sQUEUE OUTPUT POINTER 


sRESTORE RO - RS 


SET OUTPUT QUEUE POINTER=INPUT POINTER 


DRVNUM,R1 :DRIVE NUMBER TO R1 

PC,EMPTYQ 

pr ones :CLEAR NUMBER OF ITEMS IN QUEUE 
Set cae? PT ON 

PC 


4#DRVNUM ,R1 
#DPB,R2 
RO, DRVQUE 


A REQUEST IN QUEUE 


:DRIVE 


NUMBER 
sADDRESS OF PARAMETER BLOCK 


:GO PUT REQUEST IN QUEUE 


re ne oe eee ee 


SEQ 0129 


=" 
WANA 
ruts 
USWN—O 
Ooo 
WG 
Vi 
Wi 
_ 
© 


WANA 
ViVi 
oon 
ooo 
WAG 
Ww 
Ww 
™Nm 
Nm 


035552 


ARAN TISESEESEEES 


WWWANWNWWWG 
~~ 
© 
ViVi 
rs 


SN 

© 
WIWIAWG 

MUIVI 

Wi 

VW 

oO 


Jas 
ooo 
z 


355 
035572 
035574 


035576 


Se ee ee ee ee ee ee ee ee ee ee ee ee ee eee 


380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 0 
392 
393 
394 
395 
396 
397 
398 
399 
02 


122761 
001421 

105261 
006301 
010271 
062761 
026161 
001003 
016161 
006201 
005720 
000200 


105361 
006301 
017102 
005071 
062761 
026161 
001003 
016161 
006201 
000207 


CZRMTAO RMOS/3/2 DR CMPT TST 
RH/RM DRIVER INITIALIZATION CODE 


000010 
035110 
035120 
000002 
035120 
035160 


035110 


035140 


035110 


035140 
035140 


000002 
035140 
035160 
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; RE TURN1 
; RE TURN2 


035110 DRVQUE: A #10, QCNT(R1) 


sRETURN HERE IF QUEUE IS FULL 
;RETURN HERE IF REQUEST IS IN QUEUE 


1S QUEUE F 


E -BR IF YES~TAKE RETURN 
INCB QCNT(R1) : INCREMENT QUEUE COUNT 
MOV R2, @01NPT(R1) :PUT THIS REQUEST IN QUEUE 
035120 ADD #2. QINPT(R1) ATE THE QUEUE POINTER 
035162 CMP OIhPT (RT) "QSTOP(RI) :TIME TO RESET THE POINTER 
BNE 1$ :BR IF NO 
035120 <a MoV QSTART(R1) ,QINPT(R1) :YES=-RESET POINTER 
TST (RO) + : TAKE RETURN 2 
2$: RTS RO “RETURN TO USER 
;ROUTINE TO GET THE ‘DPB’' ADDRESS OF NEXT REQUEST IN QUEUE 
*CALL 
: V #DRVNUM,R1 :DRIVE NUMBER TO R1 
: JSR PC, GETREQ :GO GET THE REQUEST 
: RETURN -R2=' DPB’' ADDRESS OF THE REQUEST 
: :R2=0 IF NO REQUEST IN QUEUE 
GETREQ: CLR R2 
TSTB ~—s_ QCNT(R1) :1S THERE ANY REQUEST IN QUEUE? 
BEQ 2$ ;NO 
1$: ASL R1 
MOV QQOUTPT (R1) .R2 :PICKUP 'DPB'’ POINTER FOR THIS DRIVE 
2$: RTS PC :RETURN TO USER 
;ROUTINE TO 'POP’' THE REQUEST FROM QUEUE 
* CALL 
: MOV RVNUM ,R1 :DRIVE NUMBER TO R1 
: JSR PC, POPQUE :CALL TO REMOVE REQUEST 
: RET =R2=ADDRESS OF DPB REMOVED 
POPQUE : DECB QCNT(R1) :DECREMENT QUEUE COUNT 
MOV @QOUTPT(R1),R2 GET THE ‘DPB'* POINTER 
CLR QQOUTPT (R1) -REMOVE DPB ADDRESS FROM THE QUEUE 
035140 ADD #2,QOUTPT(R1) :UPDATE THE QUEUE POINT 
035162 CMP QOUTPT(R1),QSTOP(R1) | :TIME TC RESET THE POINTER? 
BNE 1$ -NO--BR TO EX 
035140 i MOV QSTART (R1) ,QOUTPT (RI) :YES=-RESET THE POINTER 
, RTS PC ;RETURN TO USER 


sROUTINE TO SAVE THE CONTENTS OF 
REPORTS AN ERROR DIRECTLY. 


: CALL 

: JSR RO,ES.SAV 

: ERROR WN : 
: RETURN 


"SESCAPE' WHEN THE DRIVER 


>; THE ERROR CALL 
; THE RETURN IS PAST THE ERROR CALL 


mem ee ee me me 


SEQ 0130 








4 2037 





CZRMTAQ RMOS/3/2 DR CMPT TST 
RH/RM DRIVER INITIALIZATION CODE 


08 
0 
1 
é 
3 
4 
6 
7 
8 
9 
0 


035660 
001200 
001200 
001200 


001276 
036040 
042330 
036056 
001300 
036047 
042330 
036056 
001276 
027476 
000004 
036016 
143272 
000004 


036024 


ES.SAV: MOV 
MOV 
CLR 

1$: . WORD 
MOV 
RTS 


(RO) + 
SESCAP 


0 
(SP) +, $SESCAPE 
RO 


+,1$ 
SESCAPE. o~ (SP) 


ee ee ee 


B 11 
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GET THE ERROR CALL 

;SAVE THE ADDRESS IN 'SESCAPE* 
CLEAR THE ESCAPE RETURN 

; THE ERROR CALL IS MOVED HERE 
: RESTORE THE ESCAPE ADDRESS 


-SBTTL BUSADR - GET BUS ADDRESS AND VECTOR ADDRESS 
THIS ROUTINE IS USED TO INSURE THE BUS ADDRESS 


OF THE RH/RM IS SETUP 


FOR THE PROPER ADDRESS. 


TT WILL ALSO READ THE ADDRESS FROM THE TTY IF 
:NOTE THIS ROUTINE DESTROYS RO-R4 


1$: 
TYPE 


2$: MOV 


3$: MOV 


4$: MOV 
5$: 


6$: RESREG 
RTS 


JSR 
RETURN 


BUSADR: SAVREG 
MOV 


PC ,BUSADR 


> SAVE ALL REG 


#SRMADR ,RO 
-MRMCS1 
(RO) ,~(SP) 
-BLNKS1 


(SP)+,R1 
R5,CK.NUM 
1$ 


#SRMVEC ,RO 
-MRMVEC 
(RO) ,~(SP) 
-BLNKS1 


(SP)+,R1 
R5.CK.NUM 


@FERRVEC RS 
#4$ , AMERRVEC 
@SRMADR 


R5, a#ERRVEC 
(RO) +, (R1)+¢ 
eer (R1)+ 


6 


6 
ag SERVES 


PC 


FIRST ADDRESS 

:RMCS1="' 

PRESENT RMCS1 ADDRESS 
YPE IT 


TRY 
“ADDRESS OF ASCII TEXT 
sENTER AND STORE THE NEW ADDRESS 
sERROR EXIT 
“VECTOR _ADDRESS 
:' RMVEC= 


i PRESENT RH/RM VECTOR ADDRESS ON THE STACK 


4 

: TYPE 1 BLANK 

;READ THE ENTRY 

sASCII TEXT ADDRESS 

sENTER AND STORE NEW ADDRESS 

sERROR EXIT 
sFIRST ADDRESS OF NEW PARAMETERS 
sFIRST ADDRESS OF WHERE TO PUT THEM 
SAVE ERROR VECTOR 
: LOAD NEW yp 234 —- 


LOAD VECTOR ADDRESS 
OMMON EXIT 


st 
:SET RETURN ADDRESS 
;RETRUN FROM TIME OUT TRAP 


RESTORE THE TIME OUT TRAP 
TRY AGAIN 
;RESTORE ALL REG 


SEQ 0131 
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BUSADR = GET BUS ADDRESS AND VECTOR ADDRESS 


1465 036060 . 122 115 103 MRMCS1: .ASCIZ @RMCS1=a 
1466 036047 122115126 MRMVEC: -ASCIZ @RMVEC= 


1468 .SBTTL CK.NUM = CHECK NUMBER (OCTAL) 

1469 :THIS ROUTINE CHECKS AN ASCiZ STRING FOR LEGAL CHARACTERS 
1470 :AND FORMS AN OCTAL NUMBER IN R2 

1472 : HADR RI sADDRESS OF ASCIZ STRING 
1473 : JSR R5,CK.NUM “RS CHANGF9 

1474 : RET sERROR EXIT 

1475 : RET =NORMAL EXIT 

1476 036056 010246 CK.NUM: MOV R2,-(SP) sSAVE R2 

1477 036060 010346 MOV R3,-(SP) =SAVE R3 

1478 036062 010446 MOV R4,-(SP) “SAVE RG 

1479 0 012703 000006 | MOV #6,R3 =MAX OCTAL DIGITS IN THE NUMBER 
1480 036070 005002 CLR R2 :FINAL OCTAL VALUE 

1481 036072 112104 1$: MOVB (R11) +,R4 =GET CURRENT POINTED BYTE 
1482 036074 001424 BEQ $ “BRANCH, IF TERMINATOR DETECTED 
1483 036076 120427 000060 CMPB—s- RG, #0 =SMALLER THAN ASCII-O ? 
1484 036102 103425 BLO 5$ = YES, ERROR EXIT 

1485 036104 120427 000067 CMPB —s- RG, #''7 “LARGER THAN ASCII-7 ? 

1486 034110 101022 BHI 5$ =YES,ERROR EXIT 

1487 036112 006302 ASL R2 “SHIFT LEFT 

1488 036114 103420 BCS 5$ : 

1489 036116 006302 ASL R2 : ONE 

1490 036120 103416 BCS 5$ : 

1491 036122 006302 ASL R2 :OCTAL DIGIT 

1492 036124 103414 BCS 5$ “ERROR IF CARRY BIT SET 
1493 036126 042704 177770 BIC #177770.R4 =CHOP OFF HIGHER BITS 

1494 036132 060402 ADD R4,R2 :APPENDING CURRENT DIGIT TO NUMBER 
1495 036134 005303 DEC R3 :DECREMENT BYTE COUNT 

1496 036136 001401 BEQ 2$ “BRANCH, IF LAST BYTE 

1497 036140 000754 BR 1$ “LOOPING BACK 

1498 036142 112104 2$: MOVB  (R1)+,R4 :CHECK TERMINATOR 

1499 036144 001004 BNE 5$ sERROR EXIT 

1500 036146 005702 3$: TST R2 :FINAL VALUE = 0 

1501 036150 001402 BEQ 5% :YES, TAKE ERROR EXIT 

1502 036152 010210 MOV R2, (RO) :REPLACE THE ORIGINAL VALUE 
1503 036154 005725 4$: TST (R5)+ sADJUST FOR NORMAL RETURN 
1504 036156 012604 S$: MOV (SP) +,R4 “RESTORE R4 

1505 036160 012603 MOV (SP) +_R3 “RESTORE R3 

1506 036162 012602 MOV (SP) +,R2 “RESTORE R2 

1307 036164 000205 RTS R5 sEXIT 


re mm cr cr ee ee ee eo ew ew ee — oe es 


SEQ 01352 


— RMO5 / 


7¢ DR CMPT TST 


ERROR ME 


SSAGE 


Sees 
ISY 


CONAUESWN—"OVODONAUSWN 
W 
SRE 


WV 
— 
N 


eee ce ee ee ee eed ee eed eed ed 
NW 
2 
—> 


oO 
>) 
GW 
“NS 
N— 
S 
© 


122 110 04U 
125 116 105 
115 101 123 
115 101 123 
101 104 104 
122 110 040 
125 116 103 
106 101 124 
120 105 122 
117 120 105 
104 122 111 
116 117 040 
110 105 101 
104 101 124 
127 122 111 
127 122 111 
119 105 101 
110 105 101 
106 117 122 
110 105 101 
115 111 123 
117 120 105 
104 122 117 
120 101 122 
127 122 117 
111 116 126 
127 122 111 
104 101 124 
122 110 040 
102 125 123 
104 101 124 
103 101 116 
105 122 122 
105 103 103 
102 125 123 
123 105 105 
120 122 117 
104 122 111 
040 040 000 
122 115 101 
104 122 111 
104 122 117 
104 122 111 
122 115 101 
104 122 111 
122 115 103 
122 115 115 
122 115 105 


001326 000000 
001224 027330 027332 
001224 034372 034374 


oS3TTL 


owe - ™” — =< +e ———_ « 
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ERROR MESSAGES 


/RH_INTERRUPT OCCURRED (RMAS = ())/ 
/UNEXPECTED ATTENTION OCCURRED/ 
/MASSBUS PARITY ERROR (MCPE=1) 
/MASSBUS PARITY ERROR (PAR=1) / 


ABLE MASSBUS PARITY ERROR/ 

/FATAL MASSBUS PARITY ERROR/ 

/PERSISTENT DEVI’ & UNSAFE/ 

/OPERATION NOT CUMPLETED WITHIN TIME LIMIT/ 
/DRIVE WENT OFFLINE/ 

/NOQ RESPONSE TO PORT REQUEST/ 

/HEADER CRC ERROR/ 

/DATA CHECK (‘DCK*) ERROR/ 

/WRITE CHECK ERROR = DATA CHECK ("DCK") SET/ 
/WRITE CHECK ERROR = DATA CHECK (‘DCK') NOT SET/ 
/HEADER READ ERROR - ‘FMT’ BIT DROPPED/ 

; en COMPARE (‘HCE’) ERROR/ 


/F ORMA 

/HEADER COMPARE (‘HCE’) ERROR/ 

/MISCELLANEOUS DRIVE ERROR/ 

/OPERATION INCOMPLETE ("OPI") ERROR/ 

/DRIVE TIMING (*DTE*) ERROR/ 

/PARITY ("PAR") ERROR AFTER OPERATION STARTED/ 
/WRITE CLOCK FAILURE (‘°WCF') ERROR/ 

/INVALID ADDRESS (*IAE*) ERROR/ 

/WRITE LOCK (*WLE*) ERROR/ 

/DATA_CHECK ("DCK') SET DURING WRITE CHECK COMMAND/ 
/RH OR Ss RROR/ 


OUNT INCORRECT/ 

ORS - NO OTHER ERROR(S) DETECTED/ 
/CAN'T MATCH DATA READ WITH A PATTERN/ | 
/ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RH/ 
/ECC LOGIC FAILURE - POSITION REGISTER VALUE NOT VALID/ 
/BUS ADDRESS AND WORD COUNT NOT CONSISTENT/ 

/SEEK INCOMPLETE (*SKI‘) ERROR/ 

/PROGRAM DETECTED POSITIONING ERROR/ 

aay es UNSAFE ERROR/ 


_ 
PS 
m 
S 
m 
ms) 
se) 
m 
5 
m 
t 


/RMAS  / 
/DRIVE RMDS RMER1 RMER2 RMMR2 RMAS / 


/DRIVE REG ADR DATA / 

/DRIVE Y ADR GOOD BAD / 

/DRIVE RMCS1 RMBA RMDA / 
/RMCS2 = RMDS RMER1  RMAS / 
/RMMR RMDT RMOF RMD C RMMR2 = / 


ATTN,O 
DRIVE ,RMERRS ,RMERRS+2,RMERRS+4 ,RMERRS+6,ATIN,O 


DRIVE,.RD.ADR,RD.WRD,0 


Cee ee. ee to ee ee ee ne Oe ee | ew oo wee 


_ 


me ee ee ee eed eed ed ed od 


ek td ed od ot 3 OO OE 
NOARWNV=QRAR 


CZRMTAO ae” DR CMPT TST 
ERROR MESS 


398 041244 
59 041256 
60 041262 
61 041276 
62 041312 


63 041326 


¥ 


65 041336 
66 041357 
67 041345 
68 041350 


2 
MN 
3 


RRRERRRRRREK 
Nm + Nm 


Oe SS 1 Om 
VIWO=—NMNOW— — UIPOfD 
NMA KROL -SHUMNINV! 


SSax 
fou 
OOWMNM 


So 
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034614 


004530 
004542 
004560 


004574 


$38 
Sss 


MN ONMNO- fo 


—O0 $00 3 2 SS 1 Oo 
SOO NOOCOA S$ NOFNO—f 


SRR 


x 
© 


meee te 
MO fh ho SN © 
WE YS = — Nw 





NE 
rol 


merry | 


<—— 
10-1 


DRIVE ,WRT.AD,WRT.WD,RD.WRD,O 


DRIVE, “RM. REG, RM.REG+2,RM.REG+4 ,RM.REG+6,0 

RM. REG+ 10, RM.REG+12, RM. REG+14, RM. REG+16,RM.REG+22,0 
RM.REG+24,RM.REG+26,RM. REG+32, RM.REG+34,RM.REG+40,0 
RM.REG+42,RM.REG+44,RM.REG+46,0 


Sa: # 
/** STARTING PASS 1 / 
<CRLF>/MOUNT PACK ON DRIVE / 
/AND LOAD. / , 
/TYPE <CR> WHEN DRIVE READY./ 
<CRLF>/DRIVE IS NOT READY, TEST IS ABORTED/ 
<CRLF>/PACK IS oo ACCEPTABLE, CHANGE PACK AND TRY AGAIN/ 
/UNLOAD DRIVE / 
/ AND REMOVE PACK/<CRLF> 
/TYPE <CR> WHEN DONE./ 
/** STARTING PASS 2 / 
/*x* ALL DRIVES ARE COMPATIBLE **/<CRLF> 
/SCORES FOR DRIVE / 
/ TRACK ODRIVE OVRWRT OVRWRT READ READ/ 
inne READ OFST- OFST+ OFST= OFST+/ 


<HT> 

/* Q/<HT> 

ak 

. 2 

/WILL TEST / 

JON / 

<CRLF>/IS THERE ANOTHER SUB-SYSTEM (Y OR N) ? / 


/Y/<CRLF> 
nee 


/ BAD SPOT FILE / 

/TEST COMPLETE/ 

<CRLFD>/eeaaaaaeaaxaaann/<cCRLEF> 

/DRIVE NOT ON-LINE OR a A ASS IGNED/<CRLF > 
<07>/PROGRAM HALT/<CRLF> 

/DRIVE FAILED ON BASIC READ & WRITE TEST/<CRLF> 
/DRIVE FAILED ON WRITE TEST (TEST 4)/<CRLF> 
/FATAL ER ROR/ 

<CRLF>/ ‘L* OR ‘P* CLOCK REQUIRED ON SYSTEM/<CRLF> 
/ ?DRIVE/ 

/ IS LOAD DEVICE/ 





—_ 


>? ?r PrP rrr PrP PrP rrr PrP PrP PrP PrP PP Yr PrP PPP YP Bs «+ HtRih 3 thtA tA tA tA tAitA.2e 


0 

ME 

18 042734 
19 
20 
21 
22 045032 
23 
24 


040 


000200 


077 


en = ne ee ee 


Fl 
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103 NOTST: 
.EVEN 
BUFFER: 
. END 


SEQ 0155 
eASCIZ @ ?CANNOT SELECT RMO3/2'S AND RMOS'S TOGETHER(NOT COMPATIBLE) @<CRLF> 


200 


_——— tt te EE TCT TEE, SL ES Ea ea eS 


SE = 176700 
ACDW1 = 000000 
ACDW2 = 
ACK = 000123 





ACPUOP= 000000 
ACTDORV 027414 
ACTSTR 027415 
ADDWO 


< 
Oo 
4 


pants 


ue 
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SYMBOL TABLE 


On— 


@w 
Lan 
4 
oe et a fatal 


wowwwqw 
— baa bet Rae 
SeVRrs 

COOnNOuU 


@ 
_ 
~ 
— A — SF 
USWh—© 


CKHCE 
CKSWR = 


104407 





er mm ee a a ee oe 


022364 


wet ie 
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004776 


040217 
040301 
04 


SEQ 0136 


-" 


mn m mmm mMmmMNnmMmMNnmmM MMM NNN NH we ww we ws we — DR SH BR =] SH SS HR Hh HH HB 








CZRMTAO 
SYMBOL 
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001446 
001466 


022024 


we ~ — 


M.DP42 022034 POSER 020300 RDNY 003436 RMWC = 00000 
M.DP44 022066 PRINT 017052 RDPO 003676 RM.REG 004526 
M.DP50 022100 PROCES 017352 RDP1 003716 RMO5 030264 
042322 BAD 020602 RDP10 004136 00010 
NEDCLK 042635 PRTIM 017614 RDP11 004156 RSTART 001400 
NOTST 042734 PRO = 000000 RDP12 004176 TC == .000117 
001366 PR1 = 000040 RDP13 004216 =% 
OFFCOD 004504 PR2 = RDP14 004236 =3 
OFFSET= 000115 PRS = 000140 RDP15 004256 SAVEFG 027436 
OFFST 014144 PR4 = 000 RDP16 004276 SAVREG= 104412 
OFLIN 017604 PRS = 000240 RDP17 = =00431 SC 032564 
OPIER 20310 PR6 = 000300 RDP18 004336 SCOPE = 
OPT 030556 PR7 = 000340 RDP2 03736 SCORE 014514 
OVWNO 002056 = 177776 RDP3 003756 SC11 033416 
OVWNI 002076 PSEUDO 005322 RDP4 003776 SC12 033526 
OVWNIO 002316 PSW = 177776 RDP5 004016 $C13 033576 
OVWN11 002336 PUNSAF 017544 RDP6 004036 SC3 932634 
OVWNI2 002256 PWRVEC= 000024 RDP7 004056 SC4 03264 
OVWN13 002376 QCNT 035110 RDP8 Sc5 032652 
OVWN14 002416 QDRIV 042704 DP9 4116 SC6 3304 
OVWN15 002436 QDRVO 035202 RD.ADR 034372 SC6A 033162 
OVWN16 002456 QDRV1I = 035222 RD.RM 034346 SC7 033310 
OVWN17 002476 QDRV2 035242 RD.RM1 034370 8 
OVWNI8 002516 QDRVS5 035262 RD.RM2 034514 SEARCH= 000 
002116 QDRV4 035302 RD.RM3S 034520 SECLMT 001370 
OVWNS 002136 QDRV5 = 035322 RD.RM4 034524 SECOND 001350 
OVWNS4 002156 QDRV6 = 035342 WRD 034374 = 
OVWNS 002176 QDRV7 = 035362 READIN= 000121 SEEKFG 027440 
002216 QINPT 5120 R = 000107 SELDRV= 000145 
OVWN7 002236 QOUTPT 035140 RELSE = 000113 SELFX 042206 
0 002256 QSTART 035160 REPLZ 02211 SELFO 004356 
OVWNI 002276 QSTOP 35162 RESREG= 104413 SELF1 004 
536 QTERM = 035402 RESVEC= 000010 SELF10 004402 
OvWP1 002556 QUES 2340 476 SELF11 004404 
OVWP10 002776 QUOTM 38 042222 RMAS = 000016 SELF12 004406 
OVWP11 003016 RDCHR = 104410 RMBA_ = 000004 SELF13 004410 
OVWP12 003036 RDDAT = 000171 RMCS1 = 000 SELF14 004412 
OVWP13 003056 RDHD = 000173 RMCS2 = 000010 SELF15 004414 
OVWP14 003076 RDLIN = 104411 RMDA = 000006 SELF16 004416 
OVWP15 003116 003216 RMDB = 22 SELF17 004420 
OVWP16 3136 RDN1 003236 RMDC = 000034 SELF18 004422 
OVWP17 003156 RDN10 003456 = 12 SELF2 004362 
OVWP18 003176 RDN11 0034 T = 000026 SELF3 004364 
OVWP2 002576 RDN12 003516 RMEC1 = 4 SELF4 004 
OVWPS 002616 RDN13 RMEC2 = 000046 SELFS 004370 
OVWP4 002636 RDN14 003556 RMERRS 027330 SELF6 0043572 
OVWPS 002656 RDN15 RMER1 = 000014 SELF7 004374 
OVWP6 002676 RDN16 003616 RMER2 = 000042 SELF8 004376 
OVWP7 002716 RDN17 003636 RMHR = 000036 SELF9 004400 
OvwP8 002736 RDNI8 003656 RMINIT 027514 SETFMT= 0001435 
OVWP9 002756 RDN2 003256 RMLA_ = 000020 SETVEC 006 
PACK 00132 RDN3 003276 RMMR1 = 000024 SET.IE 055036 
PARER 20330 RDN4 0033 2 = 000040 SIXTEE 001352 
PCLOCK 001314 RDNS5 003336 RMOF = 000032 1Z7ME 
= 177772 RDN6 003356 RMSN = 000030 SKIER 020410 
PIRQVE= 000240 RDN7 003376 RMTMR 035734 SLASH 


4 04 
POPQUE 035576 RDN8 003416 RMVEC 027500 SPATH 016520 


SEQ 0157 


eee ee ee yy 
i 


mee ee ee ee 





CZRMTAQ 

SYMBOL 

SPOTX 010536 
SRCHWT 027412 
STACK = 001100 
STARS 042400 
STARSC 1360 
START 005502 
START1 005520 
START2 005536 
STARTS 005550 
STATIN 001322 
STKLMT= 177774 
STNDAT 005262 
STO 034024 
STO1 034 
STO2 034154 
STO3 034 
STO5 034230 
STO6 034236 
STO? 034274 
$TO8 034324 
STO9 034334 
SVRH70 034720 
SWR 001154 
SWREG 000176 
SWIM 017574 
SwO. = 000001 
SwOO = 000001 
SwO1 = 000002 
SWO2 = 000004 
SWwOS = 000010 
SWO4 = 000020 
SWOS = 000040 
SWO6 = 000100 
SwO7 = 000200 
SwO8 = 000400 
SwO9 = 001000 
Swi == 000002 
SW10 = 002000 
SW171 = 004000 
SW1i2 = 010000 
SW13 = 020000 
SW14 = 040000 
SW15 = 100000 
SWw2 = 000004 
SW3 = 000010 
SW4 = = 000020 
SW5 = 0 
SW6 = 000100 
SW7 = 000200 
SW8 = 000400 
SW9 = 001000 
SYSADR 002014 
TAB 042213 
TABLEX 002054 
TAB.XY¥= 001114 
TBITVE= 000014 
TD 032414 





RMO5/3/2 DR CMPT TST 
TABLE 





ee ae nee eee 


1117 
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027442 
00060 


001266 
001136 


$HD 
SHIBTS 
$ICNT 


001142 
3 


=) 
™Nm 
WN 
oN 
MINIM 


tt SIMQTUNOI 
NN Nw 


OOMOO LO — SMALL AN 


sessesgesessessess 


© 
Onn 
~ = Ow — 


0 
0 
00 
00 


20 


SILLUP 025072 


SNUL 001170 
SNWTST= 000 
SOCNT 025332 
SOCTVL 026612 
SOMODE 025334 
SOVER 027072 
SPASS 00122 
SPASTM 001106 
$PHYDR= 1 
R 025100 
SPSEL = 00 
024720 
025054 
024772 
SQUES BSe5 


4 
SRDLIN 023050 


$RMCS1= 000020 
SRMCS2= 000030 
SRMDA = 000026 
SRMDB = 000042 
SRMDC = 000054 
SRMDS = 000032 
SRMDT = 000046 
SRMEC1= 000064 
SRMEC2= 000066 
SRMER1= 000034 
SRMERZ= 000062 
SRMHR = 000056 
SRMLA = 000040 
SRMMR1= 000044 
SRMMR2= 000060 
SRMOF = 000052 
SRMSN = 000050 
SRMVEC 001300 
SRMWC = 000022 

023556 
SRTRN 023552 
SSAVRE 026220 
SSAVR6 025076 
$SB2D 022574 
$SB20 022624 
SSCOPE 026630 
SEC = 0 
SSETUP= 000137 





Dt ct i, a, ee, a, ee, oe ee ee SS 





A eee aerate J11 
CZRMTAO RMOS/3/2 DR CMPT TST = MACRO V03.01 11-APR=80 14:43:18 PAGE 10-6 
SYMBOL TABLE 





STRPAD 027276 STYPE 024116 $TYPOS 025110 why 001264 
STSTM 001104 STYPEC 024330 SUNIT 001224 $WRDM = 000004 
STSTNM 001116 STYPEX 024450 SUNITM 001110 SXOFF = 000023 
STTYIN 023326 $STYPOC 025134 SUSWR 001236 $XON = 000021 
STYPDS 025336 STYPON 025150 $VECT1 001262 


- ABS. 043032 000 
000000 001 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USED: 51016 ey ( 200 PAGES) 


DYNAMIC MEMORY AVAILABLE FOR 69 PAGES 
CZRMTA.BIN, CZRMTA/C=CZRMTA.DOC,CZRMTA, SYSMAC/M 


ee eee ee eee ek -_ eee ee 


-— 


$XTSTR 026642 
$$GET4= 000001 

SOF ILL Steet 
-$X = 001100 


SEQ 0159 


eee ee ee 


K 11 
MACRO V03.01 11-APR-80 14:43:18 PAGE S-1 





CZRMTAQ RMO5/3/2 DR CMPT TST 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


SSGET4 8-139 8-139%  8-1394 

SOFILL 8-151 8-1514 8-151* 8-]51* 

S4OCAT 8-141 8-165 

SAPTHD 4-132 4-1324 

SASTAT 8-147 8-147 

SATY] 8-1478 

SATYS 8-145 8-1474 

SATYS 8-141 8-1474 

SATYC 8-147 8-1478 

SAUTOB 385-04 8-20* 8-155 8-155 8-155 

SBASE 5-04 

SBDADR 5-0# 

SBDDAT 5-0F 

SBELL 5-04 8-C77 8-141 8-141 8-141 

SBUF 6-0# 8-355* 8-547* 8-608* 8-614 8-896* 8-901 8-940* 8-969*  8-:48 8-<28*  8-=20* 

SCDW1 aoe? 8-168* 8-172 8-287* 8-291 8-468 8-470 8-542 8-702* 8-730* 8-734 8-794 
- * 


$CDW2 5-O# weg 8-131 8-162 8-207 8-237 8-252 


8=255* 8-256 8-288* 8-299 8-304 
8-751* 8-743 8-748 8-797 


8-799* 8-802 8-814 8-819 


HARC 8-145 B-1454 8-145* 8-145% 8-]45* 
SCKSWR 8-I554 8-167 8-167 
SCLR.T 8-139 8-1 594 
M3 5-0 5-O# 
5-0 5-0 5-04 -O0F4 


$CM4 5 
SCMTAG 5-O0F 8-19 8-19 8-19 8-19 8-19 8-19 8-19 


SCNTLC 8-H38 8-100 8-1 254 
SCNTLG 8-H50 8-155 8-1554 
SCNTLU) 8-H95 8-155 8-1554 
6-0 6 6-0 6-0 6-0 6-0 6-0 6-0 6-0 6-0 6-0 
6 6-04 8-341* 8-550* 8-561* 8-571% 8-607%  8-894%  8-939*  8-:30 8-:32* 


SCPUOP 

SCRLF 5-04 8-40 8-128 8-258 8-294 8-302 8-311 8-353 8-381 8-447 8-476 8-484 
8-526 8-576 8-666 8-682 8-738 8-746 8-755 8-777 8-809 8-817 8-826 8-848 
8-719 8-277 8-784 8-785 8-787 8-289 8-794 8-A03 8-A05 8-A61 8-C18 8-C20 
8-C80 8-D56 8-H37 8-H41 8-H49 8-105 8-131 8-133 8-136 8-141 8-141 8-141 


SCYL 8-338* 8-545* 8-630*  8-650* 8-654% 8-655 8-895*  8-926* 8-927 8-937* 8-997 
> 45 a s$c5 8-<47* 8-<48 8-<58* 8-<93% 8-<94 8-=25* 8-=79* 8-=80 8-=86* 
$DB20 8-H13 8-1614 
SDBLK 8-153 8-153 8-1534 
SDECVL 8-159 8-1594 
SDEVCT 5 
VM 5-04 8-286* 8-544 8-598 8-611 8-692 8-704* 8-729 8-895 8-898 8-937 8-:01 
8-<56 8-=23 8-= 8->47 8-736 8-744% 8-745 8-797 
GN 8-139 -139 8-139 8-1 394 
SDSPLY 8-F65# 8-168 
SDTBL 8-153 8-1534 
MTAB 6-0 6-0 6-0 6-0 6-0 6-0 6-0 6-0 6-0 6-0 6-0 6-0 
6-0 6-0 6-04 8-E27 
AD 4-129 8-20 8-1394 8-141 
SENDCT 8-19 8-1 394 . 
NV 5-04 8-20 8-141 8-145 8-147 8-147 
SENVM 5-0" 8-19 8-145 8-145 8-147 
$EOP 8-750 8-1 394 


erm er wr. ne we ee + a es + 
A A A A TT ee 


8-C10 
8-796 


8-471 
8-725 


8-:48 


6-0 


SEQ 0140 


8-C53 
8-890 


8-475* 


8-779 


6-0 } 
8-:63* 


8-<25 


6-0 


rsIrs Ps rs Pe Ps se ee eee ee ee eee eee ese ee ee ee we OS ee ee 


f mime mOoOm oe te ke i. i. i i)... pay “ 


CZRMTAO RMO5/3/2 DR CMPT TST 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


8-139 


4-132 


8 
8-1554 


8-1394 


8-D31* 
8-D40* 


8-163 
8-141 


8-165* 


5-04 


8-147* 
8-147* 
8-147 


8-147* 
8-145 


6-0 


8-167 


8-163 


8-155 
8-141 
8-141 


8-163 
8-163 


8-19 


8-147* 


8-147* 


8-165 
8-163 


8-141 


8-141 


8-147* 


6-0 


8-163 
8-165 


8-20 


8-147* 


8-163 
8-165* 


8-141 


8-141 


6-0 


8-1635* 


8-143 
8-145 


8-163* 
8-163 


8-141 


mm Ome ee ae eee ee 
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8-163 


8-143 


8-163* 


6-0 


8-163* 
8-1635* 


8-145 


8-165 8-165 8-165* 

9-817 9-868 9-870 9-5 3é 9-391 
6-0 6-0 6-0 6-04 8-:50° 
8-163 


9->00 


8-:53* 


SEQ 0141 


9=>10 





™ 
w 
-_ 
oS 
So 
ug 
Y) 





CZRMTAO RMOS/3/2 DR CMPT TST 
CROSS REFERENCE TABLE (CREF v01-05 ) 


8-1634 
8-340* 


8-1654 
8-145 
8-6774 


8-151* 


8-141 


8-177 
8-960 


8-139 
8-149« 


8-D68 


8-377* 


8-7914 


8-151* 
8-1634 
8-139» 


8-145 


8-176 


8-C 56 
8-B91 


8-;85 


8-A46 


8-A26 
8-B97 


8-181 
8-992 


8-1 394 
8-149* 


8-G944 


8-544* 


me ee 


N 11 
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8-8804 


8-151* 
8-1 39* 


8-145 


8-180 


8-=48 


8-A29 


9->39 
8-995 


8-632* 


8=-<104 


8-163 


8-155 


9->30 


8-=76 


8-A32 


8-;93 


8-642* 


8-=084 


8-163 


9->48 


8-A35 


8-;95 


8-643 


-_— + 


8->104 


8-163 


9->52 


8-A38 


8-=46 


8-645* 


SEQ 0143 


8-A79 


8-C24 


8-994" 


————_--—- 


B-=76« 


8-=53« 


SEQ 0144 


ed 


GODDESSES EE et MO OM 8) 8) 6) od) 3) 2) 2) 2) A) SS) A) 6) I) CL) 6) 2) I) 





C 12 
E S=4 


i 
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j 
' 


~APR~80 14:43:18 PAG 





MACRO VO3.01 17 


REFERENCE TABLE (CREF VO1-05 ) 


CZRMTAOQ RMOS/3/2 DR CMPT TST 


CROSS 








SEQ 0145 





4-1204 
8-163 
8-163 
8-155 
8-:03 


4-1204 
8-163 
8-163 
8-155 
8-:C2* 


4=120# 
8-163 
8-139 
8-155 
8-155 
8-925 
8-163 


4-1204 
8-163 
8-A11 
8->10* 
8-155 
8-155 
8-923 
8-163 


4=120# 
8-163 
8-266 
8-=08* 
8-155 
8-155 
8-922s 
8-163 


4-1204 
4-64 
8-<10* 
8-155 
8-155 
8-649 
8-163 


4-1204 
4-64 
8-880* 
8-155 
8-647 


—~ 
oO 
— 
7 
co 


8-145 


4-120# 
4-64 
8-791* 
8-155 
8-145 
8-646* 


4-120 
8-677* 
8-145 
8-H55* 


8-594* 


8-145 
8-H53* 


8-H40* 








a B®#2Z2Z 22222 ZB ZBEZZZZZEAZEZEZZLAZZZESZZLEZEZELELEEL SE 


SEQ 0146 


8-167 


ees “Suen wee RE 
weete 8-151% 8-167 





| 


eae ee 


ee me ms | ee ee ee - 





CZRMTAO RMOS/3/2 DR CMPT TST 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


8-1514 
8-167 
6-0 


8-357* 


8-167 


8-546* 
8-C22 


9-412* 
9-:25* 


8-610* 
8-C54 


9-738* 


rw re ee ee ee —_ 


8-892* 


9-74/7* 


ee 


8-960* 


9-:09 


wy ee eS E12 
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8-967* 


8-995* 


8-:47 


8-;95 


8-<21* 


8-=17* 


8-=49« 


SEQ 0147 


8-=52« 


_—— cea tata lh, eT TC CC CL LL LL LG LLL LLL LL LLL LLL LLL LLL LLL LLL LLL LLL LLLLLLLABLLLLBLLLL LLL LLL LLL LLL LLL LLL LLL LLL LLL LES LES 


-« 


BR eilig ct MUUVVIVVVOVO9O0O0O0O0O00O0O0O00000O0O0 00000000 agaagadadaa 











SEQ 0148 


Ff 12 


Rm ree ae —_— 
a 


— 











CZRMTAQ RMOS/3/2 DR CMPT TST 


CROSS REFERENCE TABLE (CREF VO1-05 ) 


5-0 
8-1474 


owe ee. - ee er ee me ee + ee + — —_— 


a 
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SEQ 0149 

8-147 8-147# 

8-1474 

8-119 8-196 8-196 8-208* 8-228 8-234 B8->44 

8-270 8-282 8-698" 8-710 

8-725  8-?42« 

8-222 99-1524 9-327 9-424 9-530 9-928 9-950 9-958 9-959 9-979 9=:69 
10-56 

5-0 

8-212 8+?74 8-790« 

8-703 8-22 

8-264 9-404 9-659 

8-A11 9-886 9-:85 

8-A11 B-A23 («9-92 

9-901 

B-E14 8-H26 9-337 9-395 9-469 9-782 9-<45 

8-950  B8-A26 9-337 9-604 9-759 9-886 9-901 9-921 9-954 9-<17 

B-A20 8-163 9-337 

8-962 8-141 8-163 9-:60 

8-438 

B8-A38 =«- « B-AG6——«éR‘N''GG 9-661 

8-A41 8-163 9-290 9-431 9-625 9-995 | 

B-A49 8-139 9-284 9-318 9-337 9-406 9-439 9-619 9-642 9-657 9-671 9-911 
B-A55 —«-«B=F65.—s B41 9-389 9-860 9-:28 | 

8-039 8-264 8-A14 8-A17 8-A5S 8-163 9-401 9-436 9-847 9-990 9:90 9:35 
8-A57 8-A79 9-389 9-401 9-404 9-406 9-436 9-439 9-625 9-459 9-661 9-782 
9-911 9-971 9-990 9-:60 9-:90 9=:97 

9-:97 

8-382 8-:50 

8-206 8-236 8-287 8-468 8-702 8-730 8-794 8-247 8-a0%4 

8-309 8-313 8-491 8-753 8-824 8-(38  8-(83 9->34 9->43 10-1008 

0-984 

-36) 8-364 8-547 8-608 8-896 8-940 8-969 8-<28 ®8-=20 10-1224 

8-F04*  8-F07 8=-H39% 8-H99s 


me ee se eee -— = oe 


ee eee 


| wy *9s9v000cc0c00Cc0c00900000C8CRR2 CeOeererererererererreeeeeeeeeree 


H 12 


6-08 8-4" 8-8* 8-12" 8-160 8-226 8-267 


CHGADP 





SEQ 0150 


Mn en me ce ee ee ee ee eee. 





| 
| 
| 
| 
| 
' 
| 
| 





eee eee le —-— — 


ph chs aaa =) 2 ae 
CZRMTAO RMOS/3/2 DR CMPT TST _ MACRO V03.01 11-APR=80 14:43:18 PAGE S-7 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


C11 9-459 9-4874 
C13 9-461 9-5104 
C14 9-450 99-5324 
C15 9-5 531 9-6094% 9-618 
C16 9-548 9-558 9-560 9-562 9-6144 
C17 9-391 9-499 9-503 9-507 9-515 9-525 9-529 9-540 9-547 
9-581 9-591 9-602 9-617 9-6194 9-733 9-763 9-940 9-<29 
C178 9-62 74 944 
C18 9-630 14 9-813 9-:82 
CK.CHR 8-G2 8-G57 8-G65 
CK.DEC 8-F98# 8-G26 
CK.DIG 8-G5S14 
/ 9->37 9->46 9->764 
CK.OCT 8=140 8-F804 8-G28 
KBUS 8-a42 8-CO54 
CKCLK 8-84 8-D204 
CKCLK1 8-=D22 8-D334 
CKCLK2 8-D34 8-D424 
CKCLK3 8=D32 8-D41 8-D484 
CKERR 8-241 8-B914 
CKFMT 8-A25 8-B00F 
CKMHCE 8-A28 8-B064 
CKSWR 8-141 8-141 8-163 8-1674 
CLKFLG 6-04 8-D20* 8-D25* 8-=D36* 8-D54 
CLOCK 8-D28 8-D38 8-D75A4 
CLRDPB 8-93 8-E 244 
CLRQUE 9-224 9-679 9-=1 ; 
CMCNT 6-04 8-625*  8-656* 8-659* 8-662 
CMCYL 6-04 8-626" 8-630 8-655*  8-658* 8-660 
CMSEC 6-04 8-627* 8-652* 8-:25 8-;57 8-;91% §-;97% 8-;99x 
CMTRK 6-04 8->40* 8->75 8->81 8->95% 8->98 8-710 8-795 
COLON 8-D61 8-D66 10-1014 
C 10-914 
C 4-674 8-145 8-145 
CRLF 4-674 8-20 8-20 8-34 8-45 8-51 8-52 8-125 8-145 8-145 
10-83 94 10-95 10-96 10-106 10-106 10-107 # 10-111 10-112 10-113 
CYLIMT 6-04 8-338 
CYLNDR -0 -O# 
DCKER 8-A54 8-A724 
Is 4-674 -0 8-19 
DEASG 8-7344 
DF 1 7-7 7-42 10-654 
DF2 7-14 7-35 10-664 
DF3 7-21 10-674 
DFS 7-28 1 
DH 1 7-5 10-444 
DH10 7-56 10-504 
DH11 7-63 10-514 
DH12 7-70 10-524 
DH2 7-12 7-33 10-454 
DH3 7-19 10-464 
; 7-26 10-474 
DHE 7-40 10-484 
DH7 7-49 10-494 
DISMNT 8-713 8-7194 
DISPLA § 8-19 8-19 8-141*  8-]63* 


ew ne a ee eee a ee ee 


9-553 


9-557 


9-571 


SEQ 0151 


9-577 





DISPLY ete bar) =< Oere 6 8-079 8-385 8-a91 8-a97 8-A02 pal * 8-A81 8-A83 8-A89 8-A95 8-B01 8-B07 





orm 


8-811 
SEQ 0152 


DADADADAAADDAADAAwD DD BDD MDM WD WAWABWAAAwWAAADAAAAAADAIA=n 





LL eae -_—-—_— 


——— ea we, mn eee ee ee oe ee ee 


K12 
CZRMTAO RMOS/3/2_DR CMPT TST _ MACRO VO3.01 11-APR-80 14:43:18 PAGE S-8 
CROSS REFERENCE TABLE (CREF VO1-05 ) 





8-816 8-B22 8-828 8-834 8-840 8-846 8-851 8-857 8-R63 
8-(45 8-(47 8-(80 8-CB3 8-(96 8-F44 81684 
DISPRE 4-1224 8-19 
DONE 8-952 ®8-All# 
IDPINT 9-604 2539-256 (9=345* 9-371 9-831 9-856 9-980 9-982» 
DPRQS 9-69 = 9-377 94.25% 9 946 3* 3 9-632% 39649 O96 65% 9-834 CH 553 
DRIVO 6-0 6-04 
Ivl 6-0 -0# 
DRIVIO 6-0 6-0# 
DRIVv11 6-0 6-07 
DRIVI2 6-0 6-04 
DRIV13 6-0 6-04 
DRIVI4 6-0 6-04 
DRIV1S 6-0 6-04 
DRIVI6 6-0 6-04 
DRIV17 6-0 6-04 
DRIV2 6-0 6-0# 
DRIV3 6-0 6-0F 
DRIVE 6-0 6-04 
vs 6-0 6-04 
DRIV6 6-0 6-04 
DRIV7 6-0 
DRIVE  6-Of 8-127* 8-142* 8-170 8-190 8-212 8-222% 8-301*% 8-305 
8-543 8-685 8-745% 8-765 8-816* 8-836 8-891 8:31 
8-224 8-780 10-56 10-57 #4®+10-58 #10-60 
DRVACT 8-:02* 9-294 9-385 9-565 9-612 9-634% 9-646 9-664% 9-752« 
9-949% 9-:63 
DRVCLR 4-1004 
RVE 8-A59 = 8-A94# 
DRVINT 9-244 9-278 9-373 9-970 9-983 
DRVQUE 380 9-393 = 
DRVSTA 8-323 8-511 8-766 8-837 99-39% 9-234% 9-235 9-25G% 9-237% 
9-367 9-375 9-399 9-433) 9-437 9 566% 390-96 B3*% «9-837 Ss: BLS 
° * 
DRVTYP 8-325 8-327 8-329 8-513 8-517 8-520 8-768 8-770 8-772 
9-296* 9-301* 9-306* 9-311% 9-402 9-684« 
DSwWR 4-674 5-0 8-19 
DT1 7-6 10-554 
DT10 7-57 ~—-: 10-614 
DT11 7 10-624 
DT12 7-71 10-634 
DT2 7-13 7-34 10-564 
DT3 7-20 10-57# 
DTS 7-27 ~=—s-: 10-584 
16 7-41 10-594 
17 °. 7=50 0-604 
TEER 8-A51 8-B214 
T 8:98" 9-1464 9-230 9-452 9-508*  9-639% 9-652 9-666 9-668* 
DTYP 6-04 8-327" 8-515 8-770* 8-841 
DULP 9-279% 9-291 
8-A74 8-A82 8-A84 8-A90 8-A96 8-802 8-808 8-B12 ~&#8-B17 
8-852 8-B58 8-864 8-870 8-B76 £8-B78H 8-C00 8-C14 
8-274 8-280 8-086 8-a92 8-a98  8-A03# 
EM1 7-4 10-34 





8-B69 


9-:51 
9-:73 


8-322 
8-:43 


9-852 


9-247 
9-853 


8-839 


9-677* 


8-B23 


8-875 


9-:71 
9-:78 


8-334 
8-:98 


9-884 


9-279 
9-909 


8-843 


9-741 


8-B29 


8-B99 


9-:76 
9-:93* 


8-483 
8-;00 


9-915* 


9-289 
9-916* 


8-846 


9-75 3* 


8-855 


8-C15 


9=-:84* 


8-487 
8-<24 


9-922« 


9-353* 
9-929 


9-514 


9-:56 


8-B41 


SEQ 0153 


8-C 38 


8-B4 7 


EM11 8-985 10-104 


an 


SEQ 0154 


wm 





no mee ae mee ee ee ee eee oe —_— 


CZRMTAO RMO5S/3/2 DR CMPT TST 
CROSS REFERENCE TABLE (CREF v01-05 ) 


— 
ty 


$993 


ererererereree 
QVaS*VeQVVaIe see 


aN 
ex 





9-783 
8-19* 
8-447 


8-240 
8-19* 
8-165* 
9-870 


8-?91* 
8-C524 


9-=384 


8-D2e* 


9->50 
9-;91 


8-349x 
8-636 





8-D23* 
9=>51* 
9->094 


8-350 
8-638 
8-: 36 
8-<61 


8-D34* 
9->53* 


M 12 
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8-D48* 
9->60* 


GE TREG 


4-1074 


me re me ee we se 


SEQ 0156 





om 


DLQDDLAADAAADADF BRAAAAAAAAUNNAAAAGA 


eee 


CZRMTAQ RMO5/3/2 DR CMPT TST 


8-E 824 


8-:05 


8-711 
8->894 


8-77 


8-A67 


8-D86* 


8- 145 


8-735 
8-;50 


8-=33 


9-729* 


8-79* 


9-875 
8-45 

8-167 
8-H42 


8-D87 


10-88 


8-800 


8-=61 


8-80* 


9-939 
8-51 
8-167 


10-1114 


8-D89* 
10-89 


8-720 


9-989 
8-52 
8-167 


8-a264 


B 13 
MACRO V03.01 11-APR-80 14:43:18 PAGE S-10 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


9-:59 
8-167 
8-167 





9-:87 
8-167 
8-167 


ee ene en ee eee 


9-:94 
8-167 
8-167 


| ah = v - YS Se a ee. Le”, eee | 2 
ee 


SEQ 0158 


C 13 





8-E64 


8-E984 


CZRMTAO RMOS/3/2 DR CMPT TST 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


10-1184 


9-777 
8-; 39 


8-=56 


8-479 
8-853 


8-818 
8-740 


8-825 
8-827 


8-D82* 


8-157 


8-a11* 
8-:08* 


8-=54 


9-963 
8->42 


8-741 
10-774 


10-744 


8-811 
10-754 


10-764 
8-D83 


8-265 


8-214 
8-:51 


9-:01 
8->53 


D1 
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8-812 


10-934 


8-D85* 


8-a18* 
8-;29 


8->57 


SEQ 0159 


ee 


10-714 
8-a22* 

8-; 55 8-<59* 8-<80 8-<83* 8-<89% 8-<96* 8-=15* 8-=92 

8->61 8->/1 8->96 





6-04 


OVWN12 


3 
-_ 
—) 
SoS 
uu 
WY) 


re ee em ee em 


~— I eee 
ee ee eee 


eM t 
|CZRMTAO RMOS/3/2 DR CMPT TST — MACRO VO3.01 11-APR=80 14:43:18 PAGE S12 


7 








VWP9 
PACK 6-C# 8-603* 8-629 
PCLOCK 6-04 8-D21* 8-D26* 


9-435 9-487 9-603 9-924 9-953 9-993 9-=894 


; 

Be REFERENCE TABLE (CREF v01=-05 ) SEQ 0161 
/OVWNI3) 6-04 ( 
OVWNIG 6-04 { 
OVWNIS 6-04 { 
16 6-04 { 
OVWN17 6-0F { 
OVWNI8B 6-04 { 
OVWN2 6-04 j 
OVWNS 6-04 1 
OVWNS 6-04 ; 
OVWNS 6-04 ; 
OVWN6 6-04 y 
OVWN7 6-04 ; 
OVWN8 6-04 ; 
OVWN9 6-04 ; 
OVWPO 6-04 8-; 37 8=->53 8->71 i 
OVWP1 6-04 , 
OVWP10 6-04 : 
OVWP11 6-0f ‘ 
OVWP12 6-04 : 
OVwWP15 6-04 : 
OVWP14 6-04 . 
OVWP15 6-04 . 
OVWP16 6-04 ‘ 
OVWP17 6-04 ' 
OVWP18 6-0f . 
OVWP2 6-04 , 
OVWP3 6-04 i 
OVWP4 6-04 
OVWP5 6-04 " 
6-04 " 

OVWP7 6-04 L 
OVWP8 6-04 4 
0 6-04 4 
C 

C 

C 

C 

E 

E 

E 

E 

G 

G 





8->63 8->69 8->73 8->79 8->85 8-?734 
8-916 8-948 8-978 8-<37 8-<66 8-<76 8-=32 8-=60 8-a524 


8-:39 8=:40* 8-:49% 8-F03* 8-E15* 8-F52 8-F53* 8=H51 9-222 9=2235% 9-252 
9-415* 9-423 9-472e 9-714% 


F 
F 
R 
S 
S 
S 
S 
S 





| ~ Oe Ee Pe Pe Pe Pe 
s 
© 
SoS 
tha 
Wy 
™m 
| -_ 
oe 


8-a/724 


fies dae ~- ae ae eee rrr rr rm mem me mee ee 


| PUNSAF 8=@57 


ee ee re en ee ee ee eee 


eS EE ee te ee 


me ee ee a see = ~_— 


H 13, 
MACRO VO3.01 11-APR-80 14:43:18 PAGE S=13 





-—- 


_CZRMTAQ RMO5/3/2 DR CMPT TST 





CROSS REFERENCE TABLE (CREF v0O1=-05 ) SEQ 0163 

4-674 8-19 8-19* 8-149 8=-149% 8-149" 8=]49% B8-]49% B8-]49« 

9=-<554@ 9=-=14 9-=38* 9-=53 9==55% Y9J==75 9-=89« 

-149 10-1164 

9-<66 9-<77 9-<86 9-<984 

9-<67 9-<78 9-<87 9-<994 

9-<68 9-<79 9-<88 9-=004 

9-<69 9-<80 9-<89 9-=014 

9-<70 9-<81 9-<90 9-=024 

9-<71 9-<82 9-<91 9-=034 

9-<72 9-<83 9-<92 9-=044 

9-<73 9-<84 9-<93 9-=054 

S-<7ie Quake 9-278 ad), Sacdoe  SuaShs 

=40* = -= -=9?* -=95* -=94 9-=96* 
9-<864 =20 =25 9-=61 9-=96 
9-<87# 9-=59 9-=94 
<94 9-= 

130. 8-132 8-251 8-253 9 

~ ~ ~ ~ 8-298 8-300 8-480 8-48 -7 - ~ - ~ 
T-t3, at . sal mth 2 8-742 8-744 8-813 8-815 10-904 
4-674 

aR at a a oe 58 

- - ~ 9-589 9-701 9-715 9-761 9-811 -87 ~ - : 

9-;154 9-: 38 9-; 88 9-<21 , _— _— _— — 
9-:19% 9=-:47 

9-:15* 9-;464 

9-;26 9-; 38 9-; 484 

9-;31 :504 

9-;214 9-;22 10-57 10-58 

8-260 8-H33 8-H73 8-1674 

vt Ne 8-341 8-:95 8-=19 

8-136 8-315 8-496 8-706 8-758 8-829 8-730 8-1674 YJ=>35 9=>44 
6-04 8-884 8-;35 8-=11 8->18 8->57 

6-04 

6-04 

6-04 

6-04 

6-04 

6-04 

6-04 

6-04 

6-04 

6-04 

6-04 

6-04 

6-04 

6-04 

6-04 

6-04 

6-04 

6-04 

6-04 8-; 31 8B->16 8->61 

6-04 

6-04 

6-04 

6-04 


I 13 


SEQ 0164 


oe ~~ 0m ee (+ rr mn mm ee ee 


ee eae a 


J 13 
MACRO VO3.01 11-APR=80 14:43:18 PAGE S=14 






CZRMTAQ RMO5/3/2 DR CMPT TST 





A Ee 


CROSS REFERENCE TABLE (CREF Vv01-05 ) SEQ 0165 

8-=13 

8-064 8-D69 8-FO9# 

8-E11 8-£44 8-159 8-161 8-167 9-261 9-407 9-410 (9473968607460 iH 24s O 
> 

8-19 8-19* 8-19 . 

6-0 6-04 8-336 8-548 8-609 8-897 ~941 -970 8-<29 8-=21 10-60 10-60 10-60 

10-61 10-61 1 10-61 10-61 10-62 += 10-62 0-62 10-62 10-62 10-63 10-63 10-63 

8-552 8-562 8-633 8-910 8-942 ®8-:33 -:55 §8-<31 8-<60 8-=26 9-359 

8-289 8-505* 8-732* 8-807* 8-:42 8-:01 9-169 9-241 9-366 9-490 9-510 9-532 9-699 
43 17 - Qu 223 227 ah) 9-:74 -:78 9-<10 9-<40 9-549 10-59 

9-327 9-809  9-928% 9-958% 9-979% 9-768 

9-1864 9-283* 9-290 9-316 9-430* 9-431 9-506 9-528 9-570 9-590 9-601 9-616 9-629 

9-812 865 9-895 9-934 9-995 9-:69 
1 9-242 9-282 9-284 = 9 379% 429% 99-4918 9-511 = 9-533% 99-619 9642 (9-657 :9K 7 

9-700 9-760% 9-876* 9-965* 9-978% 9=:44% 94:24 9-:79 exe «= ec17 «ech 6 9x6 

39-1894 9-498 9-524 9-539 

9-<15 

9-2 9-502 9-514 9-546 

9-323 9-702 9-879 9-904 9-966 9:46 

9-293 

9-<25 

9-329 9-889 9-967 9-:83 

9-225 9-847 9-850 9-860 9-966*  9-967*  9-968* 9-969* 10-56 10-56 10-56 10-56 

8-507 8-762 8-833 8-919 8-952 8-982 ®8-<11 8-<40 8-=36 8-=64 8-a463 8-883 9-221# 

9-716 9-718 

9-969 

9-320 9-552 9-556 9-576 9-580 

9-:094 

B-290* 8-292" 3-293 8-474" 8-475" 8-506*  8-680*  8-681*  8-733*  8-735* 8-736* 8-800 8-801» 

8-?20* 8-2?21% G9-i70H 9-238 9-240 9-360 

9-187# | 

8-3« 8-7 8-11* 8-449 8-524 8-579 8-669 8-850  8-A07 8-A68 8-046 8-H43 8-137 

8-320* 8-508* 8-763*  8-834*  8-920*  8-953*  8-983* B-<12* 8-<41*% 8-=37* 8-=65*  B-a44* &8-RRAs 


9-1 24a 


9-605 


9-766 


9-955 


ee 


20: 


ee ee ne re 


SEQ 0166 


CZRMTAO RMOS/3/2 DR CMPT TST 
CROSS REFERENCE TABLE (CREF vO1-05 ) 


SAVREG 





8-<18 


10-874 
9-286 


8-E 34 


8-<54 


9-397 


8-D75* 


9-530* 
8-65 


8-;49 


8-159 
9-787 


9-471 


8-D77* 


9-950 
8-467 


8-;87* 


8-161 
9-8094 


9-920 


9-922h 


8-D79 
8-921* 


8->15 


9-685 


9-959 
8-540 


ae ee eee —— - - 


8-1674 


9-936 


9-935 
8-791 


8-D81* 
8-954* 


8->17 


9-818 


8-596 


9-221 


9-945 


9-937# 


8-880 


8-984" 


8->77 


9-<394 


8-679 


L 13 
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9-362 


9-964 


9-974 
8-<10 


8-<13* 


8->83 


8-793 


9-422 


9-:02 


8-=08 


8-<42* 


8-882 


9-641 


8->10 


8-=38* 


8-<15 


9-739 


8-=66« 


8-=10 


9-:12 


8-a45* 


8->12 


9-<07 


8-B85* 


SEQ 0167 


9==13 


9-13524 





START? 4=124 8-7# 


SEQ 0168 


ee eee ee ewww em we a eee ee 





CZRMTAO RMOS/3/2 DR CMPT TST 
CROSS REFERENCE TABLE (CREF v01-05 ) 


START2 4-1 8-114 

STARTS 8-5 8-9 8-144 

STATIN 6-04 

STKLMT 4-674 

STNDAT 6-04 8-(56 8-(64 

STO 9-:19 9-:394 

STO1 9-:514 

STO2 9-:50 9-:52 9-:54 9- : 684 

STO3 9-:70 9-:764 

STOS 9-:824 

ST06 9-:72 9-:844 

STO7 9-:74 9-:924 

STO08 9-:91 9-:9 

STO9 9-:48 9-:58 + 9-:67 9-:75 9--79 9-:81 

SVRH70 9-607 9-768 9-784 9-842 Q-->° 9-910 

SwO 4-674 

SWwOO 4-67 4-674 

Sw01 4-67 4-674 

SwO2 4-67 4-674 

Sw03 4-67 4-674 

SWO4 4-67 4-674 

SwOS 4-67 4-674 

SWO06 4-67 4-674 

SWO7 4-67 4-674 

SwO08 4-67 4-674 

SwO9 4-67 4-674 

Sw 4-674 

Sw10 4-674 8-C75 

SW11 4-674 

SW12 4-674 

Sw13 4-674 8-( 78 

SW14 4-674 

SW15 4-674 

SW2 4-674 

SwW3 4-674 

SwW4 4-674 

SwW5 4-674 

SW6 4-674 

SW7 4-674 

Sw8 4-674 

Sw9 4-674 

SWR 5 8-19 8-19 8-19 8-19 8-19 

-141 8-141 8-141 8-141 8-149 8-]149* 

SWREG 4-1224 8-19 8-20 8-H45 8-155 8-155 

SWTIM 8-263 8-a904 

SYSADR 8-167 8-180* 8-181* 8-289 8-290 

TAB 8-796 8-201 8-210 8-217 10-884 

TAB.XY 4-1334 5 

TABLEX 6-04 8-;46%* 8-:64 

TBITVE 4-674 -19* 8-19 

D 9-743 99-7524 

TIMER 8-;04* 9-137H 9-343% 9-466* 9-610% 9-663« 
9-:80* 9-:86% 9J-:92« 

TKVEC 4-674 B8-H23* 8-H24* 

TPVEC 4-67# 

TRAPVE 4-674 8-19 


8-19* 





N13 
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9-:83 
9-957 


8-20 
8-155 


8-505 


9-755* 


9-:89 
9-991 


8-371 
8-155* 


8-506 


9-873» 


9-:96 
9-:61 


8-382 
8-165 


8-732 


9-918 


9-;0 


OF 
9-:99 9-<074 


8-C75 8-C78 
8-165 8-163 
8-733 8-807 
9-961*  9-976* 


SEQ 0169 
8-F 65 8-H45 8-139 | 
8-163 8-165 | 
8-808 
9-998 9-:15 9-:17%. 





TRFER 8-A19 8-B564 


SEQ 0170 


ee 


8-727 


CZRMTAO RMOS/3/2 DR CMPT TST 
CROSS REFERENCE TABLE (CREF V01-05 ) 


8-328* 
9-784 
8-4654 


8-331* 
9-488* 
8-528 


8-939 


9-;774 
9-; 84 
9-497 
9-864 


9-: 73 
8-571 


8-?504 


8-339 8-573 
9-635 9-638 
8-713 

8-595* 8-678 
8-45 8-51 
8-243 8-249 
8-298 8-299 
8-381 8-447 
8-492 8-493 
8-683 8-684 
8-754 8-755 
8-819 8-824 
8-777 8-778 
8-a07 8-208 
8-C19 8-C20 
8-H57 8-H80 
8-134 8-135 
8-151 8-153 
8-I1674 9->33 
8-240 8-306 
9-384*  9-567* 
8-:92 8-<53 
10-58 

9-;90 9-; 964 
9-501 9-505 
9-894 9-933 
9-;764 10-58 
8-607 8-894 


8-647 
9-651 


8-792* 


9-653* 


8-<22 


—_ 


8-77 '1* 
9-669* 


8-881* 
8-128 
8 


8-686 


9-670* 


9-513 9-523 
9-;614 


—-- 


ges 
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8-774% 
9-678* 


9-527 


8-923 
9-757 


9-538 


8-:03 
9-758 


9-545 


8-<44 
9-:55 


8-781 


9-946 


9-555 


8-<87 
9-:65* 


8->11* 


8-1674 


8-1674 


9-948 


9-569 


8-=88 


9-:64* 


9-579 


SEQ 0171 


8->19 


9-600 





XFATL 8-A04 = 10-1144 


SEQ 0172 





——— ee 


9 eae 
CZRMTAO RMOS/3/2 DR CMPT TST MACRO V03.01 11-APR=80 14:43:18 PAGE S-18 
CROSS REFERENCE TABLE (CREF V01-05 ) 





XPASS1 8-269 8-282 8-386 

XPASS2 8-271 8-712 8-7254 

XXDP 6-04 8=25* 8-28* 8-29 8-31* 8-36 8-47 8-145 
Y 8-264 10-954 


8-147 


SEQ 0173 


A ee ee ee ae - -_——- -- 


a 3 
MACRO VO03.01 11-APR=80 14:43:18 PAGE M=1 


CZRMTAQ RMOS/3/2 DR CMPT TST 


CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0174 
SSCMRE 46-3724 
SSCMIM 4-372H 5-0 
SSESCA 4-674 
ee 4-674 8-465 8-538 8-594 8-677 8-791 8-880 8=<10 8 -=08 &8=>10 
S$SET 8-167 8-167 8-167 8-167 8-167 8-167 8-167 8-167 8-167 8-167 8-168 
SSSETM 8-19 8-194 
$$SETU 8-19 8-194 
$$SKIP 4-674 
.$SACT1 4-554 4-129 
-SAPTB. «4-59# §=_- 5-0 5-0F 
“$APT 
$DB2 
$T 
9-; 32 9-;91 
8-A66 8-878 8-B79 8-880 8-B81 9->59 
8-677 8-791 8-880 8-<10 8-=08 8->10 
8-31 8-147 8-147 8-149 8-149 8-153 
B-E24 8-147 8-147 8-147 8-149 8-]49 
8-]67 8-167 8-167 8-167 8-167 8-167 8-168 
4-132 -0 5-0 5-0 8-465 8-538 8-791 8-880 
8-141 8-143 8-145 8-147 8-149 8-149 8-155 8-155 





awe — —— -- -— - ew - 1 


a ee ae 


a ae ee 


G 14 
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CZRMTAQ RMOS/3/2 DR CMPT TST 








CROSS REFERENCE TABLE (CREF v01=-05 ) SEQ 0175 
8-155 8-157 8-159 8-161 8-163 8-165 8-167 9-14 

SwR 4-674 8-19 8-194 

TRMTRP 8-I1674 8-169 

TYPBIN 4-674 

TYPDEC 4-674 8-795 

YPNAM 4-674 8-20 

TYPNUM 4-674 

TYPOCS 4-674 8-150 

TYPOCT 4-674 8-143 8-143 8-155 

TYPTXT 4-674 8-34 8-45 8-51 8-52 


“~ 


